view plugins/perl/libgaimperl.c @ 12250:5e2a365af01b

[gaim-migrate @ 14552] Change some *_unref() reference count guards into g_return_if_fail()/g_return_val_if_fail(). That way we'll get a debug message if they fail, not that they ever should, of course. committer: Tailor Script <[e-mail]>

#include <gmodule.h>
void __attribute__ ((constructor)) my_init(void) {
	/* 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);
}