From 714aa30b4e65eca3f5933dc1c0589cb37df7116f Mon Sep 17 00:00:00 2001
From: Emanuele Giaquinta <exg@irssi.org>
Date: Mon, 11 Sep 2006 09:29:58 +0000
Subject: [PATCH] Add support for utf8 to Irssi::settings_get_str.

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

diff --git a/src/perl/common/Settings.xs b/src/perl/common/Settings.xs
index 11a48bb6..624f1102 100644
--- a/src/perl/common/Settings.xs
+++ b/src/perl/common/Settings.xs
@@ -68,11 +68,12 @@ void perl_settings_deinit(void)
 MODULE = Irssi::Settings  PACKAGE = Irssi
 PROTOTYPES: ENABLE
 
-char *
+SV *
 settings_get_str(key)
 	char *key
 CODE:
-	RETVAL = (char *) settings_get_str(key);
+	RETVAL = newSVpv(settings_get_str(key), 0);
+	SvUTF8_on(RETVAL);
 OUTPUT:
 	RETVAL