detail messaging

[spider.git] / perl / USDB.pm

diff --git a/perl/USDB.pm b/perl/USDB.pm
index 69e1ead083446e4fbf3fa5c43900299c1418aee9..719ac66afe30db127d95008c32305d09ef8532dd 100644 (file)
--- 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