summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2021-01-13 21:11:38 -0700
committerKarl Williamson <khw@cpan.org>2021-01-20 06:51:49 -0700
commite8ba086966639eb1fc2185bfc1b5026ad30cfdd7 (patch)
tree6cf5e9dcb79731f3d7eaf18c1e3795d2dbbf394d /regcomp.c
parentb8df2602b04f250c4d5467c4f180b89c1d0fcd72 (diff)
downloadperl-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.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/regcomp.c b/regcomp.c
index 64cb5e9628..6509129737 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -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 */