libpurple/plugins/perl/common/Core.xs

Sat, 18 Apr 2009 14:03:16 +0000

author
Ethan Blanton <elb@pidgin.im>
date
Sat, 18 Apr 2009 14:03:16 +0000
changeset 26826
eef9f07b6874
parent 23987
3d41ccd1f8bf
permissions
-rw-r--r--

Patch from Zsombor Welker to expand the list of PurpleValue valid subtypes.

Fixes #8761

#include "module.h"

MODULE = Purple::Core  PACKAGE = Purple::Core  PREFIX = purple_core_
PROTOTYPES: ENABLE

gboolean 
purple_core_quit_cb()
PPCODE:
	/* The argument to purple_core_quit_cb is not used,
	 * so there's little point in requiring it on the
	 * Perl side. */
	RETVAL = purple_core_quit_cb(NULL);
	ST(0) = boolSV(RETVAL);
	sv_2mortal(ST(0));

const char *
purple_core_get_version()

const char *
purple_core_get_ui()

mercurial