[gaim-migrate @ 15151]

Tue, 10 Jan 2006 05:14:30 +0000

author
Etan Reisner <deryni@pidgin.im>
date
Tue, 10 Jan 2006 05:14:30 +0000
changeset 12804
fcab3f810f83
parent 12803
14d095d68300
child 12805
2402939bd3e9

[gaim-migrate @ 15151]
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.

plugins/perl/perl-handlers.c file | annotate | diff | comparison | revisions
--- a/plugins/perl/perl-handlers.c	Tue Jan 10 05:09:17 2006 +0000
+++ b/plugins/perl/perl-handlers.c	Tue Jan 10 05:14:30 2006 +0000
@@ -231,14 +231,15 @@
 	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]);
 	}

mercurial