Perl s/use vars/our/

2018-05-28 16:13:14 -05:00
parent 7e7d230d8c
commit 67844bacc3
1 changed files with 1 additions and 2 deletions
@@ -21,8 +21,7 @@ use Getopt::Std;
 use EPICS::Path;
 use EPICS::Release;

-use vars qw($arch $top $iocroot $root);
-
+our ($arch, $top, $iocroot, $root);
 our ($opt_a, $opt_t, $opt_T);

 $Getopt::Std::OUTPUT_HELP_VERSION = 1;