foreach my $arraybase (0, 1, -1, -2) {
my $expect_pos = 2 + $arraybase;
- my $prog = "\$[ = $arraybase; \$big = \"N\\xabN\\xab\"; ";
+ my $prog = "no warnings 'deprecated';\n";
+ $prog .= "\$[ = $arraybase; \$big = \"N\\xabN\\xab\"; ";
$prog .= '$big .= chr 256; chop $big; ' if $utf8;
$prog .= 'print rindex $big, "N", 2 + $[';
my $res = $$test [$l];
{
- local $::TODO = ($l == 3 && $i == 7 ? "Bug #53746" : "");
is (index ($str, $q), $res, "Find NUL character(s)");
}