diff options
| author | (Randal L. Schwartz) <perlbug@perl.org> | 2002-08-26 15:01:36 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-08-26 19:22:27 +0000 |
| commit | c0d14e462235d5bae4a1adbde6f7a6aef303fbc4 (patch) | |
| tree | 99d506b938c9875e158e8f15095fd0ac2b7c6129 /regexec.c | |
| parent | 417c6133ba3ade09d8c439ded53247456225a9fe (diff) | |
| download | perl-c0d14e462235d5bae4a1adbde6f7a6aef303fbc4.tar.gz | |
fix for:
Subject: [perl #16773] "abc" =~ /(ab)()(c)??/ broken
From: (Randal L. Schwartz) (via RT) <perlbug@perl.org>
Message-Id: <rt-16773-35748.5.13188490159294@bugs6.perl.org>
p4raw-id: //depot/perl@17787
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -3682,14 +3682,14 @@ S_regmatch(pTHX_ regnode *prog) /* If it could work, try it. */ if (c == (UV)c1 || c == (UV)c2) { - TRYPAREN(paren, n, PL_reginput); + TRYPAREN(paren, ln, PL_reginput); REGCP_UNWIND(lastcp); } } /* If it could work, try it. */ else if (c1 == -1000) { - TRYPAREN(paren, n, PL_reginput); + TRYPAREN(paren, ln, PL_reginput); REGCP_UNWIND(lastcp); } /* Couldn't or didn't -- move forward. */ |