view libpurple/plugins/perl/libgaimperl.c @ 15439:a415922e2882

merge of '8f5c72b9dbcf628f35e4674469f97b34f9c6fa2c' and 'e082ba7b9cfaf0fef0531d0fe9b54af7831f75df'
author Ethan Blanton <elb@pidgin.im>
date Sun, 28 Jan 2007 01:24:15 +0000
parents 5fe8042783c1
children d66e491976af
line wrap: on
line source

#include <gmodule.h>
void __attribute__ ((constructor)) my_init(void);

void __attribute__ ((constructor)) my_init() {
	/* 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);
}