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 (file)
--- 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