headline: RBN set/seeme

[spider.git] / perl / QSL.pm

diff --git a/perl/QSL.pm b/perl/QSL.pm
index f62897bff61667086d98480f1aded750ce61a0ca..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;
@@ -120,6 +121,7 @@ sub get
        return decode($value);
 }
 
+
 sub put
 {
        return unless $dbm;
@@ -147,4 +149,12 @@ sub encode
        return $json->encode($_[0]);
 }
 
+sub END
+{
+       if ($dbm) {
+               dbg "DXQSL ENDing";
+               finish();
+       }
+}
+
 1;