comparison: plugins/perl/libgaimperl.c
plugins/perl/libgaimperl.c
- changeset 12418
- 77abb6df8ee6
- parent 11862
- 5d4bc6d54688
equal
deleted
inserted
replaced
| 12417:ad19b5a4b41d | 12418:77abb6df8ee6 |
|---|---|
| 1 #include <gmodule.h> | 1 #include <gmodule.h> |
| 2 void __attribute__ ((constructor)) my_init(void) { | 2 void __attribute__ ((constructor)) my_init(void); |
| 3 /* Very evil hack...puts perl.so's symbols in the global table */ | 3 |
| 4 /* but does not create a circular dependancy because g_module_open */ | 4 void __attribute__ ((constructor)) my_init() { |
| 5 /* will only open the library once. */ | 5 /* Very evil hack...puts perl.so's symbols in the global table |
| 6 * but does not create a circular dependancy because g_module_open | |
| 7 * will only open the library once. */ | |
| 6 g_module_open("perl.so", 0); | 8 g_module_open("perl.so", 0); |
| 7 } | 9 } |
