fix create_usdb.pl data area paths

diff --git a/Changes b/Changes
index 1e2e00419347de25ef3907ff882a9ac861e66f50..75d12ce10097a872f1a1f4272d54d57dd853c0af 100644 (file)
--- 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 5dcd40df1b22f9ee59faa756420111af8f12e81e..8dd130953ac5e73f62195a8a6bdb838250a04ee9 100755 (executable)
--- 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;