summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorIlya Zakharevich <ilya@math.berkeley.edu>1998-08-21 01:41:02 -0400
committerGurusamy Sarathy <gsar@cpan.org>1998-09-23 05:50:36 +0000
commit708e3b054d184f1df89a7417419acad25ffa7318 (patch)
tree31fbf3b1823bb6aa7f879dfce392238ed0f18616 /t
parent5d42aa7bc9bf791efe4c2cf03a5b696d88d51458 (diff)
downloadperl-708e3b054d184f1df89a7417419acad25ffa7318.tar.gz
make behavior of /(a{3})+/ like /(aaa)+/ w.r.t where it matches
Message-Id: <199808210941.FAA16467@monk.mps.ohio-state.edu> Subject: Re: your mail p4raw-id: //depot/perl@1815
Diffstat (limited to 't')
-rw-r--r--t/op/re_tests3
1 files changed, 3 insertions, 0 deletions
diff --git a/t/op/re_tests b/t/op/re_tests
index d1b1cecba8..8bd175d52d 100644
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -335,6 +335,9 @@ a(?:b|(c|e){1,2}?|d)+?(.) ace y $1$2 ce
^(a(?(1)\1)){4}$ aaaaaaaaaa y $1 aaaa
^(a(?(1)\1)){4}$ aaaaaaaaa n - -
^(a(?(1)\1)){4}$ aaaaaaaaaaa n - -
+((a{4})+) aaaaaaaaa y $1 aaaaaaaa
+(((aa){2})+) aaaaaaaaaa y $1 aaaaaaaa
+(((a{2}){2})+) aaaaaaaaaa y $1 aaaaaaaa
(?:(f)(o)(o)|(b)(a)(r))* foobar y $1:$2:$3:$4:$5:$6 f:o:o:b:a:r
(?<=a)b ab y $& b
(?<=a)b cb n - -