Change 18841 by [EMAIL PROTECTED] on 2003/03/06 20:56:32
Subject: Re: [perl #20682] [fix] @- array not visible in s///
From: Enache Adrian <[EMAIL PROTECTED]>
Date: Sun, 2 Mar 2003 06:05:22 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/t/op/subst.t#41 edit
Differences ...
==== //depot/perl/t/op/subst.t#41 (xtext) ====
Index: perl/t/op/subst.t
--- perl/t/op/subst.t#40~18776~ Tue Feb 25 06:04:03 2003
+++ perl/t/op/subst.t Thu Mar 6 12:56:32 2003
@@ -7,7 +7,7 @@
}
require './test.pl';
-plan( tests => 128 );
+plan( tests => 129 );
$x = 'foo';
$_ = "x";
@@ -527,3 +527,7 @@
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');
End of Patch.
