}
require './test.pl';
-plan( tests => 133 );
+plan( tests => 135 );
$x = 'foo';
$_ = "x";
($c = "\x20\x00\x30\x01\x40\x1A\x50\x1F\x60") =~ s/[\x00-\x1f]//g;
is($c, "\x20\x30\x40\x50\x60", "s/[\\x00-\\x1f]//g");
}
+TODO:{
+ local $TODO = "RT#6006 needs resolution";
+ $TODO=$TODO;
+ $_ = "xy";
+ no warnings 'uninitialized';
+ /(((((((((x)))))))))(z)/; # clear $10
+ 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");
+}