From: yves orton <unknown>
Date: Fri, 17 Nov 2006 07:40:15 +0000 (-0800)
Subject: [perl #17542] regex confusion
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=336b16029e7686b3273193f6fde31a5cece4cff2;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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");
+}