--- a/libpurple/plugins/perl/common/AccountOpts.xs Thu Dec 11 22:33:06 2008 +0000 +++ b/libpurple/plugins/perl/common/AccountOpts.xs Thu Dec 11 22:36:47 2008 +0000 @@ -42,7 +42,7 @@ int i, t_len; CODE: t_GL = NULL; - t_len = av_len((AV *)SvRV(values)) + 1; + t_len = av_len((AV *)SvRV(values)); for (i = 0; i <= t_len; i++) t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(values), i, 0))); @@ -130,7 +130,7 @@ int i, t_len; PPCODE: t_GL = NULL; - t_len = av_len((AV *)SvRV(values)) + 1; + t_len = av_len((AV *)SvRV(values)); for (i = 0; i <= t_len; i++) t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(values), i, 0)));