comparison: libpurple/plugins/perl/libgaimperl.c
libpurple/plugins/perl/libgaimperl.c
- changeset 15946
- d40e8847e825
- parent 15945
- b9590b0c6e07
- child 15947
- 15efedafba00
equal
deleted
inserted
replaced
| 15945:b9590b0c6e07 | 15946:d40e8847e825 |
|---|---|
| 1 #include <gmodule.h> | |
| 2 | |
| 3 #ifdef __SUNPRO_C | |
| 4 #pragma init (my_init) | |
| 5 void my_init(void); | |
| 6 | |
| 7 void my_init() { | |
| 8 #else | |
| 9 void __attribute__ ((constructor)) my_init(void); | |
| 10 | |
| 11 void __attribute__ ((constructor)) my_init() { | |
| 12 #endif | |
| 13 | |
| 14 /* Very evil hack...puts perl.so's symbols in the global table | |
| 15 * but does not create a circular dependancy because g_module_open | |
| 16 * will only open the library once. */ | |
| 17 g_module_open("perl.so", 0); | |
| 18 } |
