X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FUSDB.pm;h=719ac66afe30db127d95008c32305d09ef8532dd;hb=cb5f21f8f960a003b80e7415f945d718f4b7d43e;hp=69e1ead083446e4fbf3fa5c43900299c1418aee9;hpb=9c415b19aaaf0497e9cc074f3df56f16fe414e82;p=spider.git

diff --git a/perl/USDB.pm b/perl/USDB.pm
index 69e1ead0..719ac66a 100644
--- a/perl/USDB.pm
+++ b/perl/USDB.pm
@@ -30,10 +30,9 @@ sub init
 	end();
 	if (tie %db, 'DB_File', $dbfn, O_RDONLY, 0664, $DB_BTREE) {
 		$present = 1;
-		dbg("US Database loaded");
-	} else {
-		dbg("US Database not loaded");
+		return "US Database loaded";
 	}
+	return "US Database not loaded";
 }
 
 sub end