X-Git-Url: http://git.silcnet.org/gitweb/?a=blobdiff_plain;f=apps%2Firssi%2Fsrc%2Fperl%2Ftextui%2FTextBuffer.xs;h=91a77a8026b1123b848888c8c9d08ea93994d2ca;hb=63ca577177f9f5db8e553372a9793b0c85f10715;hp=4fb92f11a6d00ba9bfa5eca44ffb297536962852;hpb=60c165f23f8d5553bd8b4fd43366fbf5f24c2832;p=silc.git

diff --git a/apps/irssi/src/perl/textui/TextBuffer.xs b/apps/irssi/src/perl/textui/TextBuffer.xs
index 4fb92f11..91a77a80 100644
--- a/apps/irssi/src/perl/textui/TextBuffer.xs
+++ b/apps/irssi/src/perl/textui/TextBuffer.xs
@@ -1,4 +1,5 @@
 #include "module.h"
+#include "recode.h"
 
 MODULE = Irssi::TextUI::TextBuffer  PACKAGE = Irssi
 PROTOTYPES: ENABLE
@@ -75,9 +76,13 @@ textbuffer_line_get_text(line, coloring)
 	int coloring
 PREINIT:
 	GString *str;
+	SV *result;
 PPCODE:
 	str = g_string_new(NULL);
 	textbuffer_line2text(line, coloring, str);
-	XPUSHs(sv_2mortal(new_pv(str->str)));
+	result = new_pv(str->str);
+	if (is_utf8())
+		SvUTF8_on(result);
+	XPUSHs(sv_2mortal(result));
 	g_string_free(str, TRUE);