[Gaim-commits] CVS: gaim/plugins/perl perl-common.h,1.8,1.9

[Richard L. <rl...@us...>]

Update of /cvsroot/gaim/gaim/plugins/perl
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28817/plugins/perl

Modified Files:
	perl-common.h 
Log Message:
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.

Index: perl-common.h
===================================================================
RCS file: /cvsroot/gaim/gaim/plugins/perl/perl-common.h,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -p -r1.8 -r1.9
--- perl-common.h	29 Jul 2005 13:37:59 -0000	1.8
+++ perl-common.h	8 Dec 2005 21:08:15 -0000	1.9
@@ -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);