Mercurial > pidgin
diff plugins/perl/perl-common.h @ 12419:455610a80747
[gaim-migrate @ 14726]
Avoid nested extern warnings. This is probably as clean as the prototyping can get on perl, unless someone can get the XS stuff to generated .h files as well.
committer: Tailor Script <tailor@pidgin.im>
| author | Richard Laager <rlaager@wiktel.com> |
|---|---|
| date | Thu, 08 Dec 2005 21:08:15 +0000 |
| parents | 0e9e2b923d09 |
| children | 202ce52b77a9 |
line wrap: on
line diff
--- 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);