more mojo->master return path fixes

diff --git a/perl/console.pl b/perl/console.pl
index 0a6d7404ba62c066539afd4697ba2d2fafba6771..f85e235d7d726ece77cb50c36dbd98733549e48f 100755 (executable)
--- 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;