comparison: libpurple/plugins/perl/libpurpleperl.c
libpurple/plugins/perl/libpurpleperl.c
- changeset 16238
- 33bf2fd32108
- parent 12418
- 77abb6df8ee6
- parent 15987
- 71d668c3d56d
equal
deleted
inserted
replaced
| 13071:b98e72d4089a | 16238:33bf2fd32108 |
|---|---|
| 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 } |
