diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-03-02 12:11:27 +0200 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2003-03-02 16:29:28 +0000 |
| commit | 91e09a610c67b89c771cab2084dbd4490cd4351a (patch) | |
| tree | 04a173dae8eae3801e193eebb26dc75c5d6c0e77 /t | |
| parent | 2d4fcd5e8be8d83efa948a259c49b56fc6c27ee5 (diff) | |
| download | perl-91e09a610c67b89c771cab2084dbd4490cd4351a.tar.gz | |
Re: [perl #21411] [fix] Postponed RE with split()
Message-ID: <20030302081127.GA10782@ratsnest.hole>
p4raw-id: //depot/perl@18805
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index b3f42a8b46..fdc4f9b2a1 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -6,7 +6,7 @@ $| = 1; -print "1..993\n"; +print "1..994\n"; BEGIN { chdir 't' if -d 't'; @@ -3139,5 +3139,11 @@ ok("bbbbac" =~ /$pattern/ && $1 eq 'a', "[perl #3547]"); ok("\x{2019}" =~ /\S/, "Markus Kuhn 2003-02-26"); } -# last test 993 +{ + my $i; + ok('-1-3-5-' eq join('', split /((??{$i++}))/, '-1-3-5-'), + "[perl #21411] (??{ .. }) corrupts split's stack") +} + +# last test 994 |