plugins/perl/libgaimperl.c

Mon, 31 Oct 2005 05:40:35 +0000

author
Mark Doliner <markdoliner@pidgin.im>
date
Mon, 31 Oct 2005 05:40:35 +0000
changeset 11924
a42748d67df3
parent 11862
5d4bc6d54688
child 12418
77abb6df8ee6
permissions
-rw-r--r--

[gaim-migrate @ 14215]
This seems to fix a crash for me when going offline --> online --> offline
--> online with an AIM account.

See the backtrace at http://nosnilmot.com/nopaste/296

11862
5d4bc6d54688 [gaim-migrate @ 14153]
Stu Tomlinson <nosnilmot@pidgin.im>
parents: 11120
diff changeset
1 #include <gmodule.h>
11120
beeb901ca8a9 [gaim-migrate @ 13176]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
2 void __attribute__ ((constructor)) my_init(void) {
beeb901ca8a9 [gaim-migrate @ 13176]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
3 /* Very evil hack...puts perl.so's symbols in the global table */
beeb901ca8a9 [gaim-migrate @ 13176]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
4 /* but does not create a circular dependancy because g_module_open */
beeb901ca8a9 [gaim-migrate @ 13176]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
5 /* will only open the library once. */
beeb901ca8a9 [gaim-migrate @ 13176]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
6 g_module_open("perl.so", 0);
beeb901ca8a9 [gaim-migrate @ 13176]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
7 }

mercurial