diff options
author | Karl Williamson <khw@cpan.org> | 2021-01-13 21:11:38 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2021-01-20 06:51:49 -0700 |
commit | e8ba086966639eb1fc2185bfc1b5026ad30cfdd7 (patch) | |
tree | 6cf5e9dcb79731f3d7eaf18c1e3795d2dbbf394d /regcomp.c | |
parent | b8df2602b04f250c4d5467c4f180b89c1d0fcd72 (diff) | |
download | perl-e8ba086966639eb1fc2185bfc1b5026ad30cfdd7.tar.gz |
regcomp.c: Slight simplification
Rather than know how far we have advanced in parsing when we have to
back up, use the already-existing checkpoint position. This results in
slightly more maintainable code that a future commit will take advantage
of.
Diffstat (limited to 'regcomp.c')
-rw-r--r-- | regcomp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -14432,7 +14432,7 @@ S_regatom(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth) if ( !isDIGIT(p[1]) || S_backref_value(p, RExC_end) < RExC_npar) { /* Not to be treated as an octal constant, go find backref */ - --p; + p = oldp; goto loopdone; } /* FALLTHROUGH */ |