From: Adrian M. Enache <enache@rdslink.ro>
Date: Sun, 2 Mar 2003 06:05:22 +0000 (+0200)
Subject: Re: [perl #20682] [fix] @- array not visible in s///
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=76ec6486987531bd29428715e8ca0428053a30d9;p=p5sagit%2Fp5-mst-13.2.git

Re: [perl #20682] [fix] @- array not visible in s///
Message-ID: <20030302040522.GB4905@ratsnest.hole>

p4raw-id: //depot/perl@18841
---

diff --git a/t/op/subst.t b/t/op/subst.t
index f30f593..21a4305 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');