defined @array and defined %hash need no warnings 'deprecated';

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

diff --git a/t/op/index.t b/t/op/index.t
old mode 100755 (executable)
new mode 100644 (file)
index 896cd12..6cc3f42
--- a/t/op/index.t
+++ b/t/op/index.t
@@ -137,7 +137,8 @@ foreach my $utf8 ('', ', utf-8') {
     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 + $[';
 
@@ -181,7 +182,6 @@ SKIP: {
             my $res = $$test [$l];
 
             {
-                local $::TODO = ($l == 3 && $i == 7 ? "Bug #53746" : "");
                 is (index ($str, $q), $res, "Find NUL character(s)");
             }