stas 2003/10/17 22:44:10
Modified: glue/perl/xsbuilder apreq_xs_postperl.h
Log:
declare only variables that we really need
Revision Changes Path
1.19 +1 -2 httpd-apreq-2/glue/perl/xsbuilder/apreq_xs_postperl.h
Index: apreq_xs_postperl.h
===================================================================
RCS file: /home/cvs/httpd-apreq-2/glue/perl/xsbuilder/apreq_xs_postperl.h,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -u -r1.18 -r1.19
--- apreq_xs_postperl.h 17 Oct 2003 14:23:29 -0000 1.18
+++ apreq_xs_postperl.h 18 Oct 2003 05:44:10 -0000 1.19
@@ -185,8 +185,7 @@
static XS(apreq_xs_##type##_env) \
{ \
char *class = NULL; \
- dXSARGS; \
- items = items; /* -Werror */ \
+ dMARK; dAX; \
\
/* map environment to package */ \
\
