headline: RBN set/seeme

[spider.git] / perl / QSL.pm

diff --git a/perl/QSL.pm b/perl/QSL.pm
index 1fd7130bf049b92b94121de721cc7e85cdc1f2df..ec5512216f563ffe9929bad57253d9d87851799f 100644 (file)
--- a/perl/QSL.pm
+++ b/perl/QSL.pm
@@ -47,6 +47,7 @@ sub init
 
 sub finish
 {
+       dbg("DXQSL finished");
        $dbm->sync;
        undef $dbm;
        untie %u;
@@ -148,4 +149,12 @@ sub encode
        return $json->encode($_[0]);
 }
 
+sub END
+{
+       if ($dbm) {
+               dbg "DXQSL ENDing";
+               finish();
+       }
+}
+
 1;