aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-11-03 04:27:19 -05:00
Code

Turn on the utf8 status only if the charset is utf8.

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@4370 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Emanuele Giaquinta 2006-09-20 23:21:44 +00:00 committed by exg
parent a7b0e6b3f2
commit f6f4941968
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/perl/common/Settings.xs
View File

@ -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