[Gaim-commits] CVS: gaim/plugins/perl perl-handlers.c,1.16,1.17

[Etan R. <de...@us...>]

Update of /cvsroot/gaim/gaim/plugins/perl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23553/plugins/perl

Modified Files:
	perl-handlers.c 
Log Message:
I believe this fixes the "attempt to free unreferenced scalar" messages that
everyone was getting and doesn't seem to break anything else. Will Thompson
said it worked for him, so that's at least two of us. Let me know if this
breaks things for anyone.


Index: perl-handlers.c
===================================================================
RCS file: /cvsroot/gaim/gaim/plugins/perl/perl-handlers.c,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -p -r1.16 -r1.17
--- perl-handlers.c	10 Jan 2006 05:09:17 -0000	1.16
+++ perl-handlers.c	10 Jan 2006 05:14:30 -0000	1.17
@@ -231,14 +231,15 @@ perl_signal_cb(va_list args, void *data)
 	PUSHMARK(sp);
 
 	gaim_signal_get_values(handler->instance, handler->signal,
-						   &ret_value, &value_count, &values);
+	                       &ret_value, &value_count, &values);
 
 	sv_args   = g_new(SV *,    value_count);
 	copy_args = g_new(void **, value_count);
 
 	for (i = 0; i < value_count; i++) {
-		sv_args[i] = sv_2mortal(gaim_perl_sv_from_vargs(values[i],
-														(va_list*)&args, &copy_args[i]));
+		sv_args[i] = gaim_perl_sv_from_vargs(values[i],
+		                                     (va_list*)&args,
+		                                     &copy_args[i]);
 
 		XPUSHs(sv_args[i]);
 	}