# HG changeset patch
# User Christian Hammond <chipx86@chipx86.com>
# Date 1061455367 0
# Node ID f1736493aebbe951e59b6e3d6d162438d30f1960
# Parent  ed796f7562379d8228ece20b4e6ce744dd6a3615
[gaim-migrate @ 7072]
This *should* be a working signal implementation for perl. Watch it crash.

committer: Tailor Script <tailor@pidgin.im>

diff -r ed796f756237 -r f1736493aebb plugins/perl/common/Gaim.xs
--- 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
diff -r ed796f756237 -r f1736493aebb plugins/perl/perl-handlers.h
--- a/plugins/perl/perl-handlers.h	Thu Aug 21 08:38:32 2003 +0000
+++ b/plugins/perl/perl-handlers.h	Thu Aug 21 08:42:47 2003 +0000
@@ -28,10 +28,10 @@
 void gaim_perl_timeout_clear_for_plugin(GaimPlugin *plugin);
 void gaim_perl_timeout_clear(void);
 
-void gaim_perl_signal_connect(GaimPlugin *plugin, void *handle,
+void gaim_perl_signal_connect(GaimPlugin *plugin, void *instance,
 							  const char *signal, const char *func,
 							  void *data);
-void gaim_perl_signal_disconnect(GaimPlugin *plugin, void *handle,
+void gaim_perl_signal_disconnect(GaimPlugin *plugin, void *instance,
 								 const char *signal, const char *func);
 void gaim_perl_signal_clear_for_plugin(GaimPlugin *plugin);
 void gaim_perl_signal_clear(void);