From c9fab2f4ef517442cb113c4081ff7d815622236d Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
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.34.1