libpurple/plugins/perl/libgaimperl.c

changeset 15611
5cb407a7d44a
parent 15435
4b933b06d75e
--- a/libpurple/plugins/perl/libgaimperl.c	Sun Feb 04 18:33:44 2007 +0000
+++ b/libpurple/plugins/perl/libgaimperl.c	Sun Feb 04 19:43:33 2007 +0000
@@ -1,7 +1,16 @@
 #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. */

mercurial