X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcreate_prefix.pl;h=d21f30f7eb0f585505c441ec46882dec85bd0894;hb=e4df86158dd5138a1fea25dd693b67fd9d78fb56;hp=ae11caa248fb2da3905bea0d712c185205cd28a9;hpb=bdfc958f3d0fa912d20a020ac1a6cd2c79a22729;p=spider.git

diff --git a/perl/create_prefix.pl b/perl/create_prefix.pl
index ae11caa2..d21f30f7 100755
--- a/perl/create_prefix.pl
+++ b/perl/create_prefix.pl
@@ -6,6 +6,18 @@
 # $Id$
 #
 
+require 5.004;
+
+# search local then perl directories
+BEGIN {
+	# root of directory tree for this system
+	$root = "/spider"; 
+	$root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
+	
+	unshift @INC, "$root/perl";	# this IS the right way round!
+	unshift @INC, "$root/local";
+}
+
 use DXVars;
 use Data::Dumper;