From a19570a72252eecc0e1a213c0ab0b19e5d079d7a Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Mon, 31 Jul 2017 19:45:13 +0100
Subject: [PATCH] fix create_usdb.pl data area paths

---
 Changes             | 2 ++
 perl/create_usdb.pl | 2 ++
 2 files changed, 4 insertions(+)

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;
-- 
2.34.1