Mercurial > pidgin3 / file diff

--- a/libpurple/plugins/perl/perl-common.c	Tue May 06 18:27:58 2014 +0200
+++ b/libpurple/plugins/perl/perl-common.c	Wed May 07 11:07:45 2014 +0200
@@ -196,7 +196,8 @@
 		if (args[i]) {
 			sv_args[i] = sv_2mortal(newSVpv(args[i], 0));
 			XPUSHs(sv_args[i]);
-		}
+		} else
+			sv_args[i] = NULL;
 	}
 
 	PUTBACK;