This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: #undef after finished
authorKarl Williamson <public@khwilliamson.com>
Sat, 28 May 2011 15:38:23 +0000 (09:38 -0600)
committerKarl Williamson <public@khwilliamson.com>
Sun, 3 Jul 2011 20:05:45 +0000 (14:05 -0600)
regcomp.c has a subsection dealing with the implementation of the
inversion list class(-like object).  Undef its macros so they
can't possibly interfere with the rest of regcomp.c

regcomp.c

index 9cc4ba3..d62028d 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -6376,6 +6376,8 @@ S_add_cp_to_invlist(pTHX_ SV* invlist, const UV cp) {
     return add_range_to_invlist(invlist, cp, cp);
 }
 
+#undef INVLIST_INITIAL_LENGTH
+
 /* End of inversion list object */
 
 /*