pidgin/plugins/perl/common/GtkIMHtml.xs

changeset 25106
2d9389f32256
parent 15590
c07dd12bf3f4
child 25107
bd102c539600
child 25112
4e9dba9e28e6
--- a/pidgin/plugins/perl/common/GtkIMHtml.xs	Thu Dec 11 06:32:05 2008 +0000
+++ b/pidgin/plugins/perl/common/GtkIMHtml.xs	Thu Dec 11 06:38:23 2008 +0000
@@ -171,7 +171,7 @@
 	int i, t_len;
 PPCODE:
 	t_GL = NULL;
-	t_len = av_len((AV *)SvRV(unused));
+	t_len = av_len((AV *)SvRV(unused)) + 1;
 
 	for (i = 0; i < t_len; i++) {
 		STRLEN t_sl;

mercurial