# HG changeset patch
# User Etan Reisner <pidgin@unreliablesource.net>
# Date 1136870070 0
# Node ID 86d67bd4ef24cffe1013487ffb5aef3dfd10bca9
# Parent  050b29b7232a572f2627039dbd1bae2217933aac
[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.

committer: Tailor Script <tailor@pidgin.im>

diff -r 050b29b7232a -r 86d67bd4ef24 plugins/perl/perl-handlers.c
--- 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]);
 	}