projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8425176
)
Re: [perl #20682] [fix] @- array not visible in s///
author
Adrian M. Enache
<enache@rdslink.ro>
Sun, 2 Mar 2003 06:05:22 +0000
(08:05 +0200)
committer
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Thu, 6 Mar 2003 20:56:32 +0000
(20:56 +0000)
Message-ID: <
20030302040522
.GB4905@ratsnest.hole>
p4raw-id: //depot/perl@18841
t/op/subst.t
patch
|
blob
|
history
diff --git
a/t/op/subst.t
b/t/op/subst.t
index
f30f593
..
21a4305
100755
(executable)
--- a/
t/op/subst.t
+++ b/
t/op/subst.t
@@
-7,7
+7,7
@@
BEGIN {
}
require './test.pl';
-plan( tests => 12
8
);
+plan( tests => 12
9
);
$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');