X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2Fconsole.pl;h=f85e235d7d726ece77cb50c36dbd98733549e48f;hp=0a6d7404ba62c066539afd4697ba2d2fafba6771;hb=754754d791020dd421aee1255fc559ac809b2080;hpb=bb9f4159e5666e42d2082ffb2c729928da2fdfb7

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;