improve sh/log sh/rcmd etc

[spider.git] / perl / cluster.pl

diff --git a/perl/cluster.pl b/perl/cluster.pl
index d6e323276696098ed4e2928cfb110facd4c2dd63..0b4e7428fcee2c421d12b348962373e7ba506900 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -395,7 +395,8 @@ dbg("DXSpider Version $version, build $build started");
 
 # load Prefixes
 dbg("loading prefixes ...");
-Prefix::load();
+my $r = Prefix::load();
+confess $r if $r;
 dbg(USDB::init());
 
 # load band data