joes 2004/07/13 12:35:37
Modified: glue/perl/xsbuilder apreq_xs_tables.h
Log:
Fixed ifdefs- all tests should pass again.
Revision Changes Path
1.21 +2 -2 httpd-apreq-2/glue/perl/xsbuilder/apreq_xs_tables.h
Index: apreq_xs_tables.h
===================================================================
RCS file: /home/cvs/httpd-apreq-2/glue/perl/xsbuilder/apreq_xs_tables.h,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -r1.20 -r1.21
--- apreq_xs_tables.h 13 Jul 2004 19:28:35 -0000 1.20
+++ apreq_xs_tables.h 13 Jul 2004 19:35:37 -0000 1.21
@@ -22,7 +22,7 @@
#include "ppport.h"
-#if (PERL_VERSION >= 8)
+#if (PERL_VERSION >= 8) /* MAGIC ITERATOR REQUIRES 5.8 */
/* Requires perl 5.8 or better.
* A custom MGVTBL with its "copy" slot filled allows
@@ -83,7 +83,7 @@
SvMAGIC(SvRV(rv))->mg_ptr = env;
}
-#if APREQ_XS_TABLE_CAN_PREFETCH_VALUES
+#if (PERL_VERSION >= 8) /* MAGIC ITERATOR requires 5.8 */
sv_magic(sv, NULL, PERL_MAGIC_ext, Nullch, -1);
SvMAGIC(sv)->mg_virtual = (MGVTBL *)&apreq_xs_table_magic;