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 | |
| 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
| -rw-r--r-- | regexec.c | 4 | ||||
| -rw-r--r-- | t/op/re_tests | 1 |
2 files changed, 3 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. */ diff --git a/t/op/re_tests b/t/op/re_tests index 9c5ddc4f2f..dcd6fdc6ea 100644 --- a/t/op/re_tests +++ b/t/op/re_tests @@ -922,3 +922,4 @@ ab(?i)cd abCd y - - (.*?)(?<=[bc])c abcd y $1 ab 2(]*)?$\1 2 y $& 2 (??{}) x y - - +a(b)?? abc y <$1> <> # undef [perl #16773] |