From: Dirk Koopman Date: Tue, 21 Feb 2017 11:57:34 +0000 (+0000) Subject: more mojo->master return path fixes X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=754754d791020dd421aee1255fc559ac809b2080;p=spider.git more mojo->master return path fixes --- diff --git a/perl/console.pl b/perl/console.pl index 0a6d7404..f85e235d 100755 --- a/perl/console.pl +++ b/perl/console.pl @@ -14,6 +14,9 @@ # require 5.004; +package main; + +use vars qw($data); # search local then perl directories BEGIN { @@ -24,6 +27,7 @@ BEGIN { unshift @INC, "$root/perl"; # this IS the right way round! unshift @INC, "$root/local"; $is_win = ($^O =~ /^MS/ || $^O =~ /^OS-2/) ? 1 : 0; # is it Windows? + $data = "$root/data"; } use Msg;