# HG changeset patch
# User Christian Hammond <chipx86@chipx86.com>
# Date 1061456559 0
# Node ID 28b38803d0bb1a7a99717e52a5c416670d2d933a
# Parent  9e4fa4853cfec356f351e596435affda9279b793
[gaim-migrate @ 7076]
Oops, we're supposed to be using gaim_signal_connect_vargs().

committer: Tailor Script <tailor@pidgin.im>

diff -r 9e4fa4853cfe -r 28b38803d0bb plugins/perl/common/Gaim.xs
--- a/plugins/perl/common/Gaim.xs	Thu Aug 21 08:53:55 2003 +0000
+++ b/plugins/perl/common/Gaim.xs	Thu Aug 21 09:02:39 2003 +0000
@@ -14,6 +14,25 @@
 	gaim_perl_timeout_add(plugin, seconds, func, data);
 
 void
+signal_connect(instance, signal, plugin, func, data)
+	void *instance
+	const char *signal
+	Gaim::Plugin plugin
+	const char *func
+	SV *data
+CODE:
+	gaim_perl_signal_connect(plugin, instance, signal, func, data);
+
+void
+signal_disconnect(instance, signal, plugin, func)
+	void *instance
+	const char *signal
+	Gaim::Plugin plugin
+	const char *func
+CODE:
+	gaim_perl_signal_disconnect(plugin, instance, signal, func);
+
+void
 debug(level, category, string)
 	const char *level
 	const char *category
@@ -33,25 +52,6 @@
 		croak("Unknown debug level type '%s'", level);
 
 void
-signal_connect(instance, signal, plugin, func, data)
-	void *instance
-	const char *signal
-	Gaim::Plugin plugin
-	const char *func
-	SV *data
-CODE:
-	gaim_perl_signal_connect(plugin, instance, signal, func, data);
-
-void
-signal_disconnect(instance, signal, plugin, func)
-	void *instance
-	const char *signal
-	Gaim::Plugin plugin
-	const char *func
-CODE:
-	gaim_perl_signal_disconnect(plugin, instance, signal, func);
-
-void
 debug_misc(category, string)
 	const char *category
 	const char *string
diff -r 9e4fa4853cfe -r 28b38803d0bb plugins/perl/perl-handlers.c
--- a/plugins/perl/perl-handlers.c	Thu Aug 21 08:53:55 2003 +0000
+++ b/plugins/perl/perl-handlers.c	Thu Aug 21 09:02:39 2003 +0000
@@ -167,8 +167,9 @@
 
 	signal_handlers = g_list_append(signal_handlers, handler);
 
-	gaim_signal_connect(instance, signal,
-						plugin, GAIM_CALLBACK(perl_signal_cb), handler);
+	gaim_debug(GAIM_DEBUG_MISC, "perl", "plugin = %p\n", plugin);
+	gaim_signal_connect_vargs(instance, signal,
+							  plugin, GAIM_CALLBACK(perl_signal_cb), handler);
 }
 
 void