comparison: libpurple/plugins/perl/libpurpleperl.c
libpurple/plugins/perl/libpurpleperl.c
- branch
- cpw.khc.msnp14
- changeset 20481
- 65485e2ed8a3
- parent 20472
- 6a6d2ef151e6
- parent 20478
- 46933dc62880
equal
deleted
inserted
replaced
| 20480:df9df972434f | 20481:65485e2ed8a3 |
|---|---|
| 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 } |
