plugins/perl/perl-common.h

changeset 12419
745d9e5460ea
parent 11170
d8941580d87f
child 12497
a17568773be3
--- a/plugins/perl/perl-common.h	Thu Dec 08 21:07:24 2005 +0000
+++ b/plugins/perl/perl-common.h	Thu Dec 08 21:08:15 2005 +0000
@@ -17,11 +17,11 @@
 #define hvref(o) \
 	(is_hvref(o) ? (HV *)SvRV(o) : NULL);
 
+#define GAIM_PERL_BOOT_PROTO(x) \
+	extern void boot_Gaim__##x(pTHX_ CV *cv);
+
 #define GAIM_PERL_BOOT(x) \
-	{ \
-		extern void boot_Gaim__##x(pTHX_ CV *cv); \
-		gaim_perl_callXS(boot_Gaim__##x, cv, mark); \
-	}
+	gaim_perl_callXS(boot_Gaim__##x, cv, mark)
 
 void gaim_perl_normalize_script_name(char *name);
 

mercurial