Re: [perl #41071] require stringifies code references in tied @INC

[p5sagit/p5-mst-13.2.git] / t / op / subst.t

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