From: Dirk Koopman <djk@tobit.co.uk>
Date: Tue, 21 Feb 2017 11:57:34 +0000 (+0000)
Subject: more mojo->master return path fixes
X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=754754d791020dd421aee1255fc559ac809b2080

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;