zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-10 20:33:46 +02:00
Code Issues Projects Releases Packages Wiki Activity

Revert perl utf8 stuff for now.

Browse source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@4412 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Emanuele Giaquinta 2007-02-06 23:06:14 +00:00 • committed by exg
commit 9d72e78ccd
3 changed files with 0 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/perl/common/Settings.xs
View file

@ -1,6 +1,5 @@
#include "module.h"
#include "misc.h"
#include "recode.h"
static GHashTable *perl_settings;
@ -77,8 +76,6 @@ PREINIT:
CODE:
str = settings_get_str(key);
RETVAL = new_pv(str);
if (is_utf8())
SvUTF8_on(RETVAL);
OUTPUT:
RETVAL

3
src/perl/textui/TextBuffer.xs
View file

@ -1,5 +1,4 @@
#include "module.h"
#include "recode.h"
MODULE = Irssi::TextUI::TextBuffer PACKAGE = Irssi
PROTOTYPES: ENABLE
@ -81,8 +80,6 @@ PPCODE:
str = g_string_new(NULL);
textbuffer_line2text(line, coloring, str);
result = new_pv(str->str);
if (is_utf8())
SvUTF8_on(result);
XPUSHs(sv_2mortal(result));
g_string_free(str, TRUE);