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