}
require './test.pl';
-plan( tests => 136 );
+plan( tests => 139 );
$x = 'foo';
$_ = "x";
is($c, "\x20\x30\x40\x50\x60", "s/[\\x00-\\x1f]//g");
}
{
- {
- local our $TODO = ${^TAINT} ? "doesn't work with taint mode" : 0;
$_ = "xy";
no warnings 'uninitialized';
/(((((((((x)))))))))(z)/; # clear $10
s/(((((((((x)))))))))(y)/${10}/;
is($_,"y","RT#6006: \$_ eq '$_'");
- }
$_ = "xr";
s/(((((((((x)))))))))(r)/fooba${10}/;
is($_,"foobar","RT#6006: \$_ eq '$_'");
is($want,$_,"RT#17542");
}
+{
+ my @tests = ('ABC', "\xA3\xA4\xA5", "\x{410}\x{411}\x{412}");
+ foreach (@tests) {
+ my $id = ord $_;
+ s/./pos/ge;
+ is($_, "012", "RT#52104: $id");
+ }
+}