From c9fab2f4ef517442cb113c4081ff7d815622236d Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Wed, 18 Jan 2023 12:15:17 +0000 Subject: [PATCH] fix 5.16.1 errors --- perl/create_master_badip_files.pl | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/perl/create_master_badip_files.pl b/perl/create_master_badip_files.pl index 0a9f5ba6..3244983b 100755 --- 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; -- 2.43.0