plugins/perl/libgaimperl.c

Thu, 11 Aug 2005 07:56:29 +0000

author
Charlie Stockman <chuckleberry@users.sourceforge.net>
date
Thu, 11 Aug 2005 07:56:29 +0000
changeset 11232
27bb80119f01
parent 11120
beeb901ca8a9
child 11862
5d4bc6d54688
permissions
-rw-r--r--

[gaim-migrate @ 13372]
committing crazychat again. hopefully here to stay.

11120
beeb901ca8a9 [gaim-migrate @ 13176]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
1 void __attribute__ ((constructor)) my_init(void) {
beeb901ca8a9 [gaim-migrate @ 13176]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
2 /* 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
3 /* but does not create a circular dependancy because g_module_open */
beeb901ca8a9 [gaim-migrate @ 13176]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
4 /* will only open the library once. */
beeb901ca8a9 [gaim-migrate @ 13176]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
5 g_module_open("perl.so", 0);
beeb901ca8a9 [gaim-migrate @ 13176]
John H. Kelm <johnkelm@gmail.com>
parents:
diff changeset
6 }

mercurial