From: Dirk Koopman <djk@tobit.co.uk>
Date: Mon, 31 Jul 2017 18:45:13 +0000 (+0100)
Subject: fix create_usdb.pl data area paths
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=a19570a72252eecc0e1a213c0ab0b19e5d079d7a;p=spider.git

fix create_usdb.pl data area paths
---

diff --git a/Changes b/Changes
index 1e2e0041..75d12ce1 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+31Jul17=======================================================================
+1. Fixed create_usdb.pl path specifications
 12May17=======================================================================
 1. Fix sh/425 (mostly)
 2. Add CTY-2706 prefixes
diff --git a/perl/create_usdb.pl b/perl/create_usdb.pl
index 5dcd40df..8dd13095 100755
--- a/perl/create_usdb.pl
+++ b/perl/create_usdb.pl
@@ -18,9 +18,11 @@ BEGIN {
 
 	unshift @INC, "$root/perl";	# this IS the right way round!
 	unshift @INC, "$root/local";
+	
 }
 
 use DXVars;
+use SysVar;
 use USDB;
 
 die "no input (usdbraw?) files specified\n" unless @ARGV;