diff plugins/perl/perl-handlers.c @ 12804:86d67bd4ef24

[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 <[e-mail]>

--- 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]);
 	}