From 35574b10c487fdf174dca6a0fc1e746698454880 Mon Sep 17 00:00:00 2001
From: Emanuele Giaquinta <exg@irssi.org>
Date: Tue, 12 Sep 2006 15:52:04 +0000
Subject: [PATCH] Do not crash when settings_get_str returns NULL.

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@4341 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/common/Settings.xs | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/src/perl/common/Settings.xs b/src/perl/common/Settings.xs
index 624f1102..378e0c59 100644
--- a/src/perl/common/Settings.xs
+++ b/src/perl/common/Settings.xs
@@ -72,8 +72,14 @@ SV *
 settings_get_str(key)
 	char *key
 CODE:
-	RETVAL = newSVpv(settings_get_str(key), 0);
-	SvUTF8_on(RETVAL);
+	const char *str;
+
+	RETVAL = NULL;
+	str = settings_get_str(key);
+	if (str != NULL) {
+		RETVAL = newSVpv(str, 0);
+		SvUTF8_on(RETVAL);
+	}
 OUTPUT:
 	RETVAL