From: Craig A. Berry <craigberry@mac.com>
Date: Mon, 22 Feb 2010 04:26:15 +0000 (-0600)
Subject: Don't multiply define Perl_regcurly in core and the re extension.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d3b0eb15c61147a3b84af3a8353cdd6f627bdd48;p=p5sagit%2Fp5-mst-13.2.git

Don't multiply define Perl_regcurly in core and the re extension.

Broken in ff3f963aa0f95ea53996b6a3842b824504b57c79.
---

diff --git a/regcomp.c b/regcomp.c
index b5c685c..56d7e55 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -8887,6 +8887,7 @@ S_regtail_study(pTHX_ RExC_state_t *pRExC_state, regnode *p, const regnode *val,
 /*
  - regcurly - a little FSA that accepts {\d+,?\d*}
  */
+#ifndef PERL_IN_XSUB_RE
 I32
 Perl_regcurly(register const char *s)
 {
@@ -8906,7 +8907,7 @@ Perl_regcurly(register const char *s)
 	return FALSE;
     return TRUE;
 }
-
+#endif
 
 /*
  - regdump - dump a regexp onto Perl_debug_log in vaguely comprehensible form