libpurple/plugins/perl/libgaimperl.c@4b933b06d75e (annotated)
libpurple/plugins/perl/libgaimperl.c
Sat, 20 Jan 2007 02:32:10 +0000
- author
- Sean Egan <seanegan@pidgin.im>
- date
- Sat, 20 Jan 2007 02:32:10 +0000
- changeset 15435
- 4b933b06d75e
- parent 14254
- libgaim/plugins/perl/libgaimperl.c@77edc7a6191a
- child 15611
- 5cb407a7d44a
- permissions
- -rw-r--r--
Rename gtk/ and libgaim/ to pidgin/ and libpurple/
|
11862
5d4bc6d54688
[gaim-migrate @ 14153]
Stu Tomlinson <nosnilmot@pidgin.im>
parents:
11120
diff
changeset
|
1 | #include <gmodule.h> |
|
12418
77abb6df8ee6
[gaim-migrate @ 14725]
Richard Laager <rlaager@pidgin.im>
parents:
11862
diff
changeset
|
2 | void __attribute__ ((constructor)) my_init(void); |
|
77abb6df8ee6
[gaim-migrate @ 14725]
Richard Laager <rlaager@pidgin.im>
parents:
11862
diff
changeset
|
3 | |
|
77abb6df8ee6
[gaim-migrate @ 14725]
Richard Laager <rlaager@pidgin.im>
parents:
11862
diff
changeset
|
4 | void __attribute__ ((constructor)) my_init() { |
|
77abb6df8ee6
[gaim-migrate @ 14725]
Richard Laager <rlaager@pidgin.im>
parents:
11862
diff
changeset
|
5 | /* Very evil hack...puts perl.so's symbols in the global table |
|
77abb6df8ee6
[gaim-migrate @ 14725]
Richard Laager <rlaager@pidgin.im>
parents:
11862
diff
changeset
|
6 | * but does not create a circular dependancy because g_module_open |
|
77abb6df8ee6
[gaim-migrate @ 14725]
Richard Laager <rlaager@pidgin.im>
parents:
11862
diff
changeset
|
7 | * will only open the library once. */ |
| 11120 | 8 | g_module_open("perl.so", 0); |
| 9 | } |
