Updated as part of DB_File update

[p5sagit/p5-mst-13.2.git] / t / lib / safe.t

diff --git a/t/lib/safe.t b/t/lib/safe.t
old mode 100644 (file)
new mode 100755 (executable)
index 72c5bf8..e59c814
--- a/t/lib/safe.t
+++ b/t/lib/safe.t
@@ -4,8 +4,8 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bSafe\b/) {
-        print STDERR "1..0\n";
+    if ($Config{'extensions'} !~ /\bSafe\b/ && $^O ne 'VMS') {
+        print "1..0\n";
         exit 0;
     }
 }
@@ -81,8 +81,8 @@ push(@Root::bar, "18"); # Two steps to prevent "Identifier used only once..."
 print "$Root::foo\n";
 print "@{$cpt->varglob('bar')}\n";
 
-print opname(22) eq "bless" ? "ok 19\n" : "not ok 19\n";
-print opcode("bless") == 22 ? "ok 20\n" : "not ok 20\n";
+print opname(23) eq "bless" ? "ok 19\n" : "not ok 19\n";
+print opcode("bless") == 23 ? "ok 20\n" : "not ok 20\n";
 
 $m1 = $cpt->mask();
 $cpt->trap("negate");