sort the include paths out

diff --git a/perl/create_usdb.pl b/perl/create_usdb.pl
index 575babc7b42ad50585a560d9c9b6bad2f850e9d7..f7242cf75f1b07e497a4f1f6db67077457966e61 100755 (executable)
--- a/perl/create_usdb.pl
+++ b/perl/create_usdb.pl
@@ -16,6 +16,7 @@ BEGIN {
        $root = "/spider"; 
        $root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
 
+       unshift @INC, "$root/perl";     # this IS the right way round!
        unshift @INC, "$root/local";
 }
 

diff --git a/perl/gen_usdb_data.pl b/perl/gen_usdb_data.pl
index 71101bec228df8acc42a1082f514022404bf9009..edd74dab2ea0cebcb8aae788bcee022d16fcb291 100755 (executable)
--- a/perl/gen_usdb_data.pl
+++ b/perl/gen_usdb_data.pl
@@ -36,6 +36,7 @@ BEGIN {
        $root = "/spider"; 
        $root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
 
+       unshift @INC, "$root/perl";     # this IS the right way round!
        unshift @INC, "$root/local";
 }