X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcreate_prefix.pl;h=d21f30f7eb0f585505c441ec46882dec85bd0894;hb=3b3a59d698d4388d048f9831d76d6f4c59480670;hp=ae11caa248fb2da3905bea0d712c185205cd28a9;hpb=57dbfe8cfdaacb84832c1a485b737b6c670b6ac4;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;