Mercurial > pidgin
changeset 6554:28b38803d0bb
[gaim-migrate @ 7076]
Oops, we're supposed to be using gaim_signal_connect_vargs().
committer: Tailor Script <tailor@pidgin.im>
| author | Christian Hammond <chipx86@chipx86.com> |
|---|---|
| date | Thu, 21 Aug 2003 09:02:39 +0000 |
| parents | 9e4fa4853cfe |
| children | ec1a178b2608 |
| files | plugins/perl/common/Gaim.xs plugins/perl/perl-handlers.c |
| diffstat | 2 files changed, 22 insertions(+), 21 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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