libpurple/plugins/perl/common/Signal.xs

Thu, 01 Jan 2015 19:40:48 -0500

author
Daniel Atallah <datallah@pidgin.im>
date
Thu, 01 Jan 2015 19:40:48 -0500
branch
release-2.x.y
changeset 36301
2b4af2e09a67
parent 15894
765ec644ac47
child 18068
b6554e3c8224
child 20478
46933dc62880
permissions
-rw-r--r--

Update windows build to use perl 5.20.1. Thanks to Renato Silva for much of this. Fixes #15599

* Remove the stuff for looking up ActivePerl (and MIT Kerberos) at startup and installation

#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);

mercurial