libpurple/plugins/perl/common/Roomlist.xs

changeset 23980
a38cbb35eecf
parent 16773
e1171eb45f07
child 23987
3d41ccd1f8bf
--- a/libpurple/plugins/perl/common/Roomlist.xs	Thu Aug 07 01:08:37 2008 +0000
+++ b/libpurple/plugins/perl/common/Roomlist.xs	Thu Aug 07 01:41:44 2008 +0000
@@ -84,10 +84,9 @@
 	t_GL = NULL;
 	t_len = av_len((AV *)SvRV(fields));
 
-	for (i = 0; i < t_len; i++) {
-		STRLEN t_sl;
-		t_GL = g_list_append(t_GL, SvPV(*av_fetch((AV *)SvRV(fields), i, 0), t_sl));
-	}
+	for (i = 0; i < t_len; i++)
+		t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(fields), i, 0)));
+
 	purple_roomlist_set_fields(list, t_GL);
 
 void 

mercurial