From: Craig A. Berry <craigberry@mac.com>
Date: Sat, 5 Feb 2011 18:00:24 +0000 (-0600)
Subject: Don't redefine Perl API functions in ext/re.
X-Git-Tag: accepted/trunk/20130322.191538~5774
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=8d69a8837f23c66f2f888713ce8b292b29564a70;p=platform%2Fupstream%2Fperl.git

Don't redefine Perl API functions in ext/re.
---

diff --git a/regcomp.c b/regcomp.c
index 8007dd3..5a50c5a 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -5781,6 +5781,7 @@ S_invlist_set_max(pTHX_ HV* const invlist, const UV max)
     }
 }
 
+#ifndef PERL_IN_XSUB_RE
 HV*
 Perl__new_invlist(pTHX_ IV initial_size)
 {
@@ -5806,6 +5807,7 @@ Perl__new_invlist(pTHX_ IV initial_size)
 
     return invlist;
 }
+#endif
 
 PERL_STATIC_INLINE void
 S_invlist_destroy(pTHX_ HV* const invlist)
@@ -5864,6 +5866,7 @@ S_invlist_trim(pTHX_ HV* const invlist)
 
 #define ELEMENT_IN_INVLIST_SET(i) (! ((i) & 1))
 
+#ifndef PERL_IN_XSUB_RE
 void
 Perl__append_range_to_invlist(pTHX_ HV* invlist, const UV start, const UV end)
 {
@@ -5934,6 +5937,7 @@ Perl__append_range_to_invlist(pTHX_ HV* invlist, const UV start, const UV end)
 	invlist_set_len(invlist, len - 1);
     }
 }
+#endif
 
 PERL_STATIC_INLINE HV*
 S_invlist_union(pTHX_ HV* const a, HV* const b)