chdir 't' if -d 't';
@INC = '../lib';
require Config; import Config;
- if ($Config{'extensions'} !~ /\bSafe\b/) {
+ if ($Config{'extensions'} !~ /\bSafe\b/ && $^O ne 'VMS') {
print "1..0\n";
exit 0;
}
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");