--- a/libpurple/plugins/perl/common/Roomlist.xs Thu Dec 11 06:38:23 2008 +0000 +++ b/libpurple/plugins/perl/common/Roomlist.xs Thu Dec 11 06:48:25 2008 +0000 @@ -80,7 +80,7 @@ t_GL = NULL; t_len = av_len((AV *)SvRV(fields)) + 1; - for (i = 0; i < t_len; i++) + 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);