From 754754d791020dd421aee1255fc559ac809b2080 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Tue, 21 Feb 2017 11:57:34 +0000
Subject: [PATCH] more mojo->master return path fixes

---
 perl/console.pl | 4 ++++
 1 file changed, 4 insertions(+)

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;
-- 
2.34.1