fix 5.16.1 errors

diff --git a/perl/create_master_badip_files.pl b/perl/create_master_badip_files.pl
index 0a9f5ba6e034b880c1d62a4c858fe4e735d9ded9..3244983b0191d1c735aff3643f749740873e9fc8 100755 (executable)
--- a/perl/create_master_badip_files.pl
+++ b/perl/create_master_badip_files.pl
@@ -8,19 +8,21 @@
 use 5.16.1;
 
 # search local then perl directories
+use strict;
+
 BEGIN {
        # root of directory tree for this system
-       $root = "/spider"; 
+       our $root = "/spider"; 
        $root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
 
        mkdir "$root/local_data", 02777 unless -d "$root/local_data";
 
        unshift @INC, "$root/perl";     # this IS the right way round!
        unshift @INC, "$root/local";
-       $data = "$root/data";
+       our $data = "$root/data";
 }
 
-use strict;
+
 use DXVars;
 use SysVar;