diff options
| author | Craig A. Berry <craigberry@mac.com> | 2020-12-24 08:41:13 -0600 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2020-12-24 12:01:59 -0600 |
| commit | 387608880ebf5408efb63a7fbd36309dd17758d8 (patch) | |
| tree | 34492cdd8402e2e2f8bb0ee88316aaa5dec72e1e /regcomp.c | |
| parent | 9f9c5d81a615222775dcd39d9f6e281fcd3bdd1a (diff) | |
| download | perl-387608880ebf5408efb63a7fbd36309dd17758d8.tar.gz | |
Don't define Perl_regcurly in re extension
This makes the linker have to decide (or guess) which of the
identically-named symbols to include. The VMS linker refuses
and throws a multiply-defined symbol error.
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -12544,6 +12544,7 @@ S_regbranch(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, I32 first, U32 depth) - regcurly - a little FSA that accepts {\d+,?\d*} Pulled from reg.c. */ +#ifndef PERL_IN_XSUB_RE bool Perl_regcurly(const char *s) { @@ -12563,7 +12564,7 @@ Perl_regcurly(const char *s) return *s == '}'; } - +#endif /* - regpiece - something followed by possible quantifier * + ? {n,m} * |