libpurple/plugins/perl/libpurpleperl.c@05ca719b901b
libpurple/plugins/perl/libpurpleperl.c
Wed, 13 May 2009 20:29:03 +0000
- author
- Marcus Lundblad <malu@pidgin.im>
- date
- Wed, 13 May 2009 20:29:03 +0000
- changeset 27110
- 05ca719b901b
- parent 15987
- 71d668c3d56d
- child 16238
- 33bf2fd32108
- child 18068
- b6554e3c8224
- child 20478
- 46933dc62880
- permissions
- -rw-r--r--
Support custom smileys in MUCs (when all participants support BoB and a maximum
of 10 participants are in the chat).
Always announce support for BoB, since disable custom smileys will still turn
off fetching them, and BoB can be used for other purposes further on.
#include <gmodule.h> #ifdef __SUNPRO_C #pragma init (my_init) void my_init(void); void my_init() { #else void __attribute__ ((constructor)) my_init(void); void __attribute__ ((constructor)) my_init() { #endif /* Very evil hack...puts perl.so's symbols in the global table * but does not create a circular dependancy because g_module_open * will only open the library once. */ g_module_open("perl.so", 0); }
