move usdb init as per k1xx's bug

diff --git a/Changes b/Changes
index a34e3c35e2c9e0721191aadd3d2f72c6e3bde521..8807fb5f4dd1862d94d70e203e8a2e8242f4fe23 100644 (file)
--- 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 62227d218080c0c8199b4e1cfbee925a4b92d3e2..68f40e1aa83eff76c8b11aad87c49cb7a00718be 100755 (executable)
--- 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 ...");