--- 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);