diff plugins/perl/common/Gaim.xs @ 6550:f1736493aebb

[gaim-migrate @ 7072] This *should* be a working signal implementation for perl. Watch it crash. committer: Tailor Script <[e-mail]>

--- a/plugins/perl/common/Gaim.xs	Thu Aug 21 08:38:32 2003 +0000
+++ b/plugins/perl/common/Gaim.xs	Thu Aug 21 08:42:47 2003 +0000
@@ -33,6 +33,25 @@
 		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
+	void *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