toke.c: Make sure things are initialized

[perl5.git] / t / bigmem / vec.t

diff --git a/t/bigmem/vec.t b/t/bigmem/vec.t
index ccdbb9b..5806aef 100644 (file)
--- a/t/bigmem/vec.t
+++ b/t/bigmem/vec.t
@@ -1,7 +1,7 @@
 #!perl
 BEGIN {
-    chdir 't';
-    unshift @INC, "../lib";
+    chdir 't' if -d 't';
+    @INC = "../lib";
 }
 
 use strict;
@@ -16,12 +16,11 @@ $Config{ptrsize} >= 8
 plan(7);
 
 # RT #111730: Negative offset to vec in lvalue context
-local $::TODO = "RT #111730 - vec uses I32 for offsets";
 
 my $v = "";
 ok(scalar eval { vec($v, 0x80000000, 1) = 1 }, "set a bit at a large offset");
 ok(vec($v, 0x80000000, 1), "check a bit at a large offset");
-{ local $::TODO; # succeeds but shouldn't at this point
+
 ok(scalar eval { vec($v, 0x100000000, 1) = 1 },
    "set a bit at a larger offset");
 ok(vec($v, 0x100000000, 1), "check a bit at a larger offset");
@@ -29,7 +28,6 @@ ok(vec($v, 0x100000000, 1), "check a bit at a larger offset");
 # real out of range values
 ok(!eval { vec($v, -0x80000000, 1) = 1 },
    "shouldn't be able to set at a large negative offset");
-}
 ok(!eval { vec($v, -0x100000000, 1) = 1 },
    "shouldn't be able to set at a larger negative offset");