diff plugins/perl/common/Gaim.xs @ 6567:6e25e1e08ffb

[gaim-migrate @ 7089] Perl signal callbacks just got more spiffy. You can now embed a sub inside of a callback instead of linking to the function. committer: Tailor Script <tailor@pidgin.im>
author Christian Hammond <chipx86@chipx86.com>
date Fri, 22 Aug 2003 04:09:06 +0000
parents 28b38803d0bb
children 33486b749aa9
line wrap: on
line diff
--- a/plugins/perl/common/Gaim.xs	Thu Aug 21 23:41:52 2003 +0000
+++ b/plugins/perl/common/Gaim.xs	Fri Aug 22 04:09:06 2003 +0000
@@ -14,23 +14,22 @@
 	gaim_perl_timeout_add(plugin, seconds, func, data);
 
 void
-signal_connect(instance, signal, plugin, func, data)
+signal_connect(instance, signal, plugin, callback, data)
 	void *instance
 	const char *signal
 	Gaim::Plugin plugin
-	const char *func
+	SV *callback
 	SV *data
 CODE:
-	gaim_perl_signal_connect(plugin, instance, signal, func, data);
+	gaim_perl_signal_connect(plugin, instance, signal, callback, data);
 
 void
-signal_disconnect(instance, signal, plugin, func)
+signal_disconnect(instance, signal, plugin)
 	void *instance
 	const char *signal
 	Gaim::Plugin plugin
-	const char *func
 CODE:
-	gaim_perl_signal_disconnect(plugin, instance, signal, func);
+	gaim_perl_signal_disconnect(plugin, instance, signal);
 
 void
 debug(level, category, string)