X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;h=b919d07660cf9ca95d7abf13bee2fb64b8027659;hb=37a9324302cb4de2c25ce0005d697fd9895ea8cd;hp=3258af44ffb1441b734146b5bee5c7d58a8b4a5c;hpb=2b7e736fb36d7edc64930ce9a8acffb86257e3ed;p=spider.git diff --git a/perl/console.pl b/perl/console.pl index 3258af44..b919d076 100755 --- a/perl/console.pl +++ b/perl/console.pl @@ -29,12 +29,16 @@ our $foreground; our $background; our $mycallcolor; our @colors; +our $data; +our $local_data; # search local then perl directories BEGIN { # root of directory tree for this system $root = "/spider"; $root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'}; + $local_data = "$root/local_data"; + $data = "$root/data"; unshift @INC, "$root/perl"; # this IS the right way round! unshift @INC, "$root/local";