From 1bb3ae1a09a6117d93c02041bff9b5cd2d4819ef Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Thu, 1 Jan 2004 13:43:01 +0000
Subject: [PATCH] move usdb init as per k1xx's bug

---
 Changes         | 3 +++
 perl/cluster.pl | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/Changes b/Changes
index a34e3c35..8807fb5f 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,6 @@
+01Jan04=======================================================================
+1. move position of USDB init to get rid of an obscure bug pointed out by
+Charlie K1XX.
 31Dec03=======================================================================
 1. alter remote database handling to 'new standard'.
 30Dec03=======================================================================
diff --git a/perl/cluster.pl b/perl/cluster.pl
index 62227d21..68f40e1a 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -408,9 +408,9 @@ dbg("DXSpider Version $version, build $build started");
 
 # load Prefixes
 dbg("loading prefixes ...");
+dbg(USDB::init());
 my $r = Prefix::init();
 confess $r if $r;
-dbg(USDB::init());
 
 # load band data
 dbg("loading band data ...");
-- 
2.34.1