libpurple/plugins/perl/libpurpleperl.c

Sun, 15 Apr 2007 03:43:17 +0000

author
Richard Laager <rlaager@pidgin.im>
date
Sun, 15 Apr 2007 03:43:17 +0000
branch
cpw.khc.msnp14
changeset 20478
46933dc62880
parent 20472
libgaim/plugins/perl/libgaimperl.c@6a6d2ef151e6
parent 15987
libgaim/plugins/perl/libgaimperl.c@71d668c3d56d
child 20481
65485e2ed8a3
permissions
-rw-r--r--

propagate from branch 'im.pidgin.pidgin' (head 88b7040408c88e4516c008f4eac579f98ef53e85)
to branch 'im.pidgin.rlaager.merging.msnp13-and-pidgin' (head 198222e01a7dc9f8795f68ec618a48c3478e04a8)

#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