diff options
author | Todd Rinaldo <toddr@cpan.org> | 2017-11-11 00:42:36 -0600 |
---|---|---|
committer | Todd Rinaldo <toddr@cpan.org> | 2017-11-11 01:07:18 -0600 |
commit | 83461ff88314343113a71164e691909448c35442 (patch) | |
tree | 684cfa4684a5cb5f06398caca1724e696a733003 /t/opbasic | |
parent | 3d3a0a8a5e7ee9abf3f3e52e1b63942b8c55a069 (diff) | |
download | perl-83461ff88314343113a71164e691909448c35442.tar.gz |
Replace multiple 'use vars' by 'our' in t
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') { |