[perl #17542] regex confusion

From: "yves orton via RT" <perlbug-followup@perl.org>
Message-ID: <rt-3.5.HEAD-32013-1163778013-580.17542-15-0@perl.org>

p4raw-id: //depot/perl@29309

diff --git a/t/op/subst.t b/t/op/subst.t
index d6e5f51..b9428e0 100755 (executable)
--- a/t/op/subst.t
+++ b/t/op/subst.t
@@ -7,7 +7,7 @@ BEGIN {
 }
 
 require './test.pl';
-plan( tests => 134 );
+plan( tests => 135 );
 
 $x = 'foo';
 $_ = "x";
@@ -571,4 +571,14 @@ TODO:{
     s/(((((((((x)))))))))(y)/${10}/;
     is($_,"y","RT#6006: \$_ eq '$_'");
 }
+{
+    my $want=("\n" x 11).("B\n" x 11)."B";
+    $_="B";
+    our $i;
+    for $i(1..11){
+       s/^.*$/$&/gm;
+       $_="\n$_\n$&";
+    }
+    is($want,$_,"RT#17542");
+}