projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
81404bc
)
fix 5.16.1 errors
author
Dirk Koopman
<djk@tobit.co.uk>
Wed, 18 Jan 2023 12:15:17 +0000
(12:15 +0000)
committer
Dirk Koopman
<djk@tobit.co.uk>
Wed, 18 Jan 2023 12:15:17 +0000
(12:15 +0000)
perl/create_master_badip_files.pl
patch
|
blob
|
history
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 5.16.1;
# search local then perl directories
+use strict;
+
BEGIN {
# root of directory tree for this system
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";
$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;
use DXVars;
use SysVar;