Mercurial > pidgin
view libpurple/plugins/perl/common/Signal.xs @ 25262:df6d3c3574ce
Make Purple::PluginPref->get_bounds be more perl-like.
It no longer expects to be called as:
$ppref->get_bounds($min, $max)
or
$ppref->get_bounds(\$min, \$max)
(I'm not even sure which one of those was intended to be correct, but
apparently they both crash.)
It now expects to be called like this:
my ($min, $max) = $ppref->get_bounds();
author | Etan Reisner <pidgin@unreliablesource.net> |
---|---|
date | Tue, 06 Jan 2009 05:36:39 +0000 |
parents | 2f8274ce570a |
children |
line wrap: on
line source
#include "module.h" #include "../perl-handlers.h" MODULE = Purple::Signal PACKAGE = Purple::Signal PREFIX = purple_signal_ PROTOTYPES: ENABLE void purple_signal_connect_priority(instance, signal, plugin, callback, priority, data = 0) Purple::Handle instance const char *signal Purple::Plugin plugin SV *callback int priority SV *data CODE: purple_perl_signal_connect(plugin, instance, signal, callback, data, priority); void purple_signal_connect(instance, signal, plugin, callback, data = 0) Purple::Handle instance const char *signal Purple::Plugin plugin SV *callback SV *data CODE: purple_perl_signal_connect(plugin, instance, signal, callback, data, PURPLE_SIGNAL_PRIORITY_DEFAULT); void purple_signal_disconnect(instance, signal, plugin) Purple::Handle instance const char *signal Purple::Plugin plugin CODE: purple_perl_signal_disconnect(plugin, instance, signal);