diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-11-29 17:18:34 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-29 15:26:00 +0000 |
| commit | 99ed40ffbc554c06cacea00522b9ea0d8190ec46 (patch) | |
| tree | d821253f9c01c944123b33ea1df4cf694e3ae708 /t | |
| parent | 4e87bc57f9548c4b32659bff1ec0ab2f84bc490d (diff) | |
| download | perl-99ed40ffbc554c06cacea00522b9ea0d8190ec46.tar.gz | |
Re: Fix \k<foo> preceded by literal
Message-ID: <9b18b3110611290718o685a07ddja39f595ed97c231a@mail.gmail.com>
p4raw-id: //depot/perl@29420
Diffstat (limited to 't')
| -rw-r--r-- | t/op/re_tests | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/t/op/re_tests b/t/op/re_tests index cde5ccc8e9..925bb36cb4 100644 --- a/t/op/re_tests +++ b/t/op/re_tests @@ -1193,3 +1193,9 @@ a*(*F) aaaab n - - (foo)(\R2) foofoo y $1-$2 foo-foo (foo)(\R2)(foo)(\R2) foofoofoofoo y $1-$2-$3-$4 foo-foo-foo-foo (([abc]+) \R1)(([abc]+) \R1) abc abccba cba y $2-$4 abc-cba + +/(?'n'foo) \k<n>/ ..foo foo.. y $1 foo +/(?'n'foo) \k<n>/ ..foo foo.. y $+{n} foo +/(?<n>foo) \k'n'/ ..foo foo.. y $1 foo +/(?<n>foo) \k'n'/ ..foo foo.. y $+{n} foo +/(?<as>as) (\w+) \k<as> (\w+)/ as easy as pie y $1-$2-$3 as-easy-pie |