This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Do not define invlistEQ in the re extension.
authorCraig A. Berry <craigberry@mac.com>
Sun, 20 Dec 2015 16:12:36 +0000 (10:12 -0600)
committerCraig A. Berry <craigberry@mac.com>
Sun, 20 Dec 2015 16:45:29 +0000 (10:45 -0600)
Because it's already defined in regcomp.c and the VMS build was
failing with a linker error (multiply-defined symbol).

regcomp.c

index f11fda1..8474e82 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -9389,7 +9389,7 @@ Perl__load_PL_utf8_foldclosures (pTHX)
 }
 #endif
 
-#ifdef PERL_ARGS_ASSERT__INVLISTEQ
+#if defined(PERL_ARGS_ASSERT__INVLISTEQ) && !defined(PERL_IN_XSUB_RE)
 bool
 Perl__invlistEQ(pTHX_ SV* const a, SV* const b, const bool complement_b)
 {