diff options
Diffstat (limited to 't/opbasic')
| -rw-r--r-- | t/opbasic/arith.t | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/t/opbasic/arith.t b/t/opbasic/arith.t index 75dc56e134..625f4c0e16 100644 --- a/t/opbasic/arith.t +++ b/t/opbasic/arith.t @@ -423,9 +423,8 @@ print "not "x($a ne $b), "ok ", $T++, qq ' - something % \$1 vs "\$1"\n'; my $vms_no_ieee; if ($^O eq 'VMS') { - use vars '%Config'; - eval {require Config; import Config}; - $vms_no_ieee = 1 unless defined($Config{useieee}); + eval { require Config }; + $vms_no_ieee = 1 unless defined($Config::Config{useieee}); } if ($^O eq 'vos') { |