Mercurial > pidgin

comparison libgaim/plugins/perl/perl-handlers.c @ 14717:b1fcd2fc903a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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);