diff options
| author | Emanuele Giaquinta <exg@irssi.org> | 2006-09-20 23:21:44 +0000 |
|---|---|---|
| committer | exg <exg@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2006-09-20 23:21:44 +0000 |
| commit | f6f49419683c2943dbce6c36ffa62ebd6bec4b80 (patch) | |
| tree | 3182c497e9ada241787ce90e79e6f603d7569a5f /src/perl/common | |
| parent | a7b0e6b3f22208537509a1748b4e3d31ce6eda4c (diff) | |
| download | irssi-f6f49419683c2943dbce6c36ffa62ebd6bec4b80.zip | |
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
Diffstat (limited to 'src/perl/common')
| -rw-r--r-- | src/perl/common/Settings.xs | 4 |
1 files changed, 3 insertions, 1 deletions
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 |