Fix issues finding $main::data etc on clean install

[spider.git] / perl / SysVar.pm

diff --git a/perl/SysVar.pm b/perl/SysVar.pm
index 92a81e4b4d584422ebcb879190e54a1cd0d7617c..a45218781f4bfde4fba7675144bbbc6bf6d85141 100644 (file)
--- a/perl/SysVar.pm
+++ b/perl/SysVar.pm
@@ -6,7 +6,8 @@
 #
 
 package main;
-use warnings;
+
+use vars qw($data $local_data $system $cmd $localcmd $userfn $motd);
 
 ##
 ## DXVars.pm overrides
@@ -26,12 +27,6 @@ $cmd = "$root/cmd";
 # local command files live in (and overide $cmd)
 $localcmd = "$root/local_cmd";
 
-# data files live in 
-$data = "$root/data";
-
-# for local data
-$local_data = "$root/local_data";
-
 # where the user data lives
 $userfn = "$local_data/users";