From: minima <minima>
Date: Thu, 1 Jan 2004 13:43:01 +0000 (+0000)
Subject: move usdb init as per k1xx's bug
X-Git-Tag: R_1_51~2
X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=1bb3ae1a09a6117d93c02041bff9b5cd2d4819ef

move usdb init as per k1xx's bug
---

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 ...");