Mercurial > pidgin

diff libpurple/plugins/perl/common/Status.xs @ 24689:7fd6e5a72bf1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
disapproval of revision '0538a6873b4fbb3c72cc0b6fc4d8b690d467686d'
author John Bailey <rekkanoryo@rekkanoryo.org>
date Thu, 11 Dec 2008 22:36:29 +0000
parents 08b65145276a
children 34b02adafd9b
line wrap: on
line diff
--- a/libpurple/plugins/perl/common/Status.xs	Thu Dec 11 06:38:23 2008 +0000
+++ b/libpurple/plugins/perl/common/Status.xs	Thu Dec 11 22:36:29 2008 +0000
@@ -83,7 +83,7 @@
 	int i, t_len;
 PPCODE:
 	t_GL = NULL;
-	t_len = av_len((AV *)SvRV(source_list)) + 1;
+	t_len = av_len((AV *)SvRV(source_list));
 
 	for (i = 0; i < t_len; i++) {
 		t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(source_list), i, 0)));
@@ -379,7 +379,7 @@
 	int i, t_len;
 CODE:
 	t_GL = NULL;
-	t_len = av_len((AV *)SvRV(status_types)) + 1;
+	t_len = av_len((AV *)SvRV(status_types));
 
 	for (i = 0; i < t_len; i++) {
 		t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(status_types), i, 0)));