diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-08-26 11:11:07 +0300 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-26 05:18:15 +0000 |
| commit | e994fd663a4d8acc8c717fa28479d849341d1bb4 (patch) | |
| tree | 5ce0bae519b646c868fa25a6fb71d9885a19e0af /t | |
| parent | 397cf4b72b64bab2d81c27006b39549ca667b5a8 (diff) | |
| download | perl-e994fd663a4d8acc8c717fa28479d849341d1bb4.tar.gz | |
Re: [PATCH] valgrind and /#/x
Message-ID: <20030826051107.GA1086@ratsnest.hole>
p4raw-id: //depot/perl@20901
Diffstat (limited to 't')
| -rw-r--r-- | t/op/re_tests | 2 | ||||
| -rw-r--r-- | t/run/fresh_perl.t | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/t/op/re_tests b/t/op/re_tests index b794aea889..1bec50be28 100644 --- a/t/op/re_tests +++ b/t/op/re_tests @@ -941,3 +941,5 @@ a(b)?? abc y <$1> <> # undef [perl #16773] ^.{2,3}?((?:b|a|r)+?)\1\z foobarbar y $1 bar ^(?:f|o|b){2,3}?((?:b|a|r)+?)\1\z foobarbar y $1 bar .*a(?!(b|cd)*e).*f ......abef n - - # [perl #23030] +x(?# x c - Sequence (?#... not terminated +:x(?#: x c - Sequence (?#... not terminated diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t index a0f707ff05..1fd44174a1 100644 --- a/t/run/fresh_perl.t +++ b/t/run/fresh_perl.t @@ -349,7 +349,6 @@ print "you die joe!\n" unless "@x" eq 'x y z'; ######## /(?{"{"})/ # Check it outside of eval too EXPECT -Sequence (?{...}) not terminated or not {}-balanced at - line 1, within pattern Sequence (?{...}) not terminated or not {}-balanced in regex; marked by <-- HERE in m/(?{ <-- HERE "{"})/ at - line 1. ######## /(?{"{"}})/ # Check it outside of eval too |