Mercurial > pidgin.yaz
comparison libgaim/plugins/perl/perl-handlers.c @ 14717:b1fcd2fc903a
[gaim-migrate @ 17471]
Martijn van Beers provided some patches to rework the perl object
casting/blessing for signal instances in order to let the newly added jabber-*
signals work. This is those patches.
This is also a small whitespace change, a removal of the gaim debug message
about "Found plugin info" it was just pissing me off, and a renamespacing of
gaim_blist_node_get_extended_menu into Gaim::Blist::Node where it makes
slightly more sense.
committer: Tailor Script <tailor@pidgin.im>
author | Etan Reisner <pidgin@unreliablesource.net> |
---|---|
date | Thu, 12 Oct 2006 20:38:47 +0000 |
parents | 338ac096e322 |
children |
comparison
equal
deleted
inserted
replaced
14716:023dfc2ce5e3 | 14717:b1fcd2fc903a |
---|---|
69 PUSHMARK(SP); | 69 PUSHMARK(SP); |
70 XPUSHs(sv_2mortal(gaim_perl_bless_object(plugin, "Gaim::Plugin"))); | 70 XPUSHs(sv_2mortal(gaim_perl_bless_object(plugin, "Gaim::Plugin"))); |
71 /* XXX This *will* cease working correctly if context gets changed to | 71 /* XXX This *will* cease working correctly if context gets changed to |
72 * ever be able to hold anything other than a GaimConnection */ | 72 * ever be able to hold anything other than a GaimConnection */ |
73 if (context != NULL) | 73 if (context != NULL) |
74 XPUSHs(sv_2mortal(gaim_perl_bless_object(context, "Gaim::Connection"))); | 74 XPUSHs(sv_2mortal(gaim_perl_bless_object(context, |
75 "Gaim::Connection"))); | |
75 else | 76 else |
76 XPUSHs(&PL_sv_undef); | 77 XPUSHs(&PL_sv_undef); |
77 PUTBACK; | 78 PUTBACK; |
78 | 79 |
79 count = call_pv(gps->plugin_action_sub, G_ARRAY); | 80 count = call_pv(gps->plugin_action_sub, G_ARRAY); |