libpurple/plugins/perl/libgaimperl.c

changeset 15435
4b933b06d75e
parent 14254
77edc7a6191a
child 15611
5cb407a7d44a
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/libpurple/plugins/perl/libgaimperl.c	Sat Jan 20 02:32:10 2007 +0000
@@ -0,0 +1,9 @@
+#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);
+}

mercurial