diff options
| author | Yves Orton <demerphq@gmail.com> | 2008-02-17 16:53:27 +0000 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2008-02-17 16:53:27 +0000 |
| commit | 250257bbff1fc2894d6e73059be5be21b4ea00a4 (patch) | |
| tree | c8518e0e98a33992db46ed32a99159a2fbd1d07d /t/op/pat.t | |
| parent | 639081d6f95c9b3121be1c0c372070f2e0ca4eaf (diff) | |
| download | perl-250257bbff1fc2894d6e73059be5be21b4ea00a4.tar.gz | |
Fix bug 50496 -- regcomp.c=~s/lastcloseparen/lastparen/g
-- lastcloseparen is literally the index of the last paren closed
-- lastparen is index of the highest index paren that has been closed.
In nested parens, they will be completely different.
'ab'=~/(a(b))/ will have: lastparen = 2, lastcloseparen = 1
'ab'=~/(a)(b)/ will have: lastparen = lastcloseparen = 2
p4raw-id: //depot/perl@33325
Diffstat (limited to 't/op/pat.t')
| -rwxr-xr-x | t/op/pat.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 4d61068e55..599021f67c 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -3791,10 +3791,10 @@ sub iseq($$;$) { } } iseq($res,1,"$s~=/(?<D>(?<A>foo)\s+(?<B>bar)?\s+(?<C>baz))/"); - iseq($count,4,"Got 4 keys in %+ via each # TODO bug 50496"); - iseq(0+@k, 4, 'Got 4 keys in %+ via keys # TODO bug 50496'); - iseq("@k","A B C D", "Got expected keys # TODO bug 50496"); - iseq("@v","bar baz foo foo bar baz", "Got expected values # TODO bug = 50496"); + iseq($count,4,"Got 4 keys in %+ via each -- bug 50496"); + iseq(0+@k, 4, 'Got 4 keys in %+ via keys -- bug 50496'); + iseq("@k","A B C D", "Got expected keys -- bug 50496"); + iseq("@v","bar baz foo foo bar baz", "Got expected values -- bug = 50496"); eval' print for $+{this_key_doesnt_exist}; '; |