From f6f49419683c2943dbce6c36ffa62ebd6bec4b80 Mon Sep 17 00:00:00 2001 From: Emanuele Giaquinta Date: Wed, 20 Sep 2006 23:21:44 +0000 Subject: [PATCH] Turn on the utf8 status only if the charset is utf8. git-svn-id: http://svn.irssi.org/repos/irssi/trunk@4370 dbcabf3a-b0e7-0310-adc4-f8d773084564 --- src/perl/common/Settings.xs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/perl/common/Settings.xs b/src/perl/common/Settings.xs index 971b51ee..684b7718 100644 --- a/src/perl/common/Settings.xs +++ b/src/perl/common/Settings.xs @@ -1,5 +1,6 @@ #include "module.h" #include "misc.h" +#include "recode.h" static GHashTable *perl_settings; @@ -76,7 +77,8 @@ CODE: str = settings_get_str(key); RETVAL = new_pv(str); - SvUTF8_on(RETVAL); + if (is_utf8()) + SvUTF8_on(RETVAL); OUTPUT: RETVAL