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 | ecc99935a58a155a4b14fba6610e548b41ac479e (patch) | |
| tree | 99d506b938c9875e158e8f15095fd0ac2b7c6129 /regexec.c | |
| parent | 75fa620ac02fb8930e654aff3c635036e78e564a (diff) | |
| download | perl-ecc99935a58a155a4b14fba6610e548b41ac479e.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. */ |