libpurple/plugins/perl/libpurpleperl.c

Sat, 24 Mar 2007 22:55:24 +0000

author
Mark Doliner <markdoliner@pidgin.im>
date
Sat, 24 Mar 2007 22:55:24 +0000
changeset 15958
4067324ddb35
parent 15611
libpurple/plugins/perl/libgaimperl.c@5cb407a7d44a
parent 15946
libpurple/plugins/perl/libgaimperl.c@d40e8847e825
child 15985
375cc05bf77a
permissions
-rw-r--r--

merge of '829c34a210a41329a652548320cbe3277b538452'
and '9e1858889bc19fa0999c0ead98b040d6e86166d0'

#include <gmodule.h>

#ifdef  __SUNPRO_C
#pragma init (my_init)
void my_init(void);

void my_init() {
#else
void __attribute__ ((constructor)) my_init(void);

void __attribute__ ((constructor)) my_init() {
#endif

	/* Very evil hack...puts perl.so's symbols in the global table
	 * but does not create a circular dependancy because g_module_open
	 * will only open the library once. */
	g_module_open("perl.so", 0);
}

mercurial