From 754754d791020dd421aee1255fc559ac809b2080 Mon Sep 17 00:00:00 2001 From: Dirk Koopman 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.43.0