diff plugins/perl/perl-handlers.c @ 13190:60b863ecd89b

[gaim-migrate @ 15553] perl scripts can use signal priority now. Also it's always bothered me that the debug and signal stuff was just stuck at the bottom of Gaim.xs so I've moved them to their own files, committer: Tailor Script <[e-mail]>

--- a/plugins/perl/perl-handlers.c	Wed Feb 08 22:15:46 2006 +0000
+++ b/plugins/perl/perl-handlers.c	Wed Feb 08 23:13:56 2006 +0000
@@ -424,7 +424,8 @@
 
 void
 gaim_perl_signal_connect(GaimPlugin *plugin, void *instance,
-                         const char *signal, SV *callback, SV *data)
+                         const char *signal, SV *callback, SV *data,
+                         int priority)
 {
 	GaimPerlSignalHandler *handler;
 
@@ -440,8 +441,9 @@
 
 	signal_handlers = g_list_append(signal_handlers, handler);
 
-	gaim_signal_connect_vargs(instance, signal, plugin,
-	                          GAIM_CALLBACK(perl_signal_cb), handler);
+	gaim_signal_connect_priority_vargs(instance, signal, plugin,
+	                                   GAIM_CALLBACK(perl_signal_cb),
+	                                   handler, priority);
 }
 
 void