diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-03-02 08:05:22 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-03-06 20:56:32 +0000 |
| commit | 76ec6486987531bd29428715e8ca0428053a30d9 (patch) | |
| tree | b26b8ceeb4e84d357aaf5589ea4bf1df887eeef2 /t | |
| parent | 842517601b969821600597cc5736114bee3b0c27 (diff) | |
| download | perl-76ec6486987531bd29428715e8ca0428053a30d9.tar.gz | |
Re: [perl #20682] [fix] @- array not visible in s///
Message-ID: <20030302040522.GB4905@ratsnest.hole>
p4raw-id: //depot/perl@18841
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/subst.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/op/subst.t b/t/op/subst.t index f30f593e5a..21a4305776 100755 --- a/t/op/subst.t +++ b/t/op/subst.t @@ -7,7 +7,7 @@ BEGIN { } require './test.pl'; -plan( tests => 128 ); +plan( tests => 129 ); $x = 'foo'; $_ = "x"; @@ -527,3 +527,7 @@ $_ = "123"; s/(1)(2)(3)/$#- (@-)/; is($_, "3 (0 0 1 2)", '#20682 @- not visible in replacement'); +# [perl #20682] $^N not visible in replacement +$_ = "abc"; +/(a)/; s/(b)|(c)/-$^N/g; +is($_,'a-b-c','#20682 $^N not visible in replacement'); |