Merge branch 'test' into mojo

[spider.git] / perl / QSL.pm

diff --git a/perl/QSL.pm b/perl/QSL.pm
index f62897bff61667086d98480f1aded750ce61a0ca..b9f4ee85ace6df724cab7ba30200f46c6778896d 100644 (file)
--- a/perl/QSL.pm
+++ b/perl/QSL.pm
@@ -47,7 +47,8 @@ sub init
 
 sub finish
 {
-       $dbm->sync;
+       dbg("DXQSL finished");
+       $dbm->sync if $dbm;
        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;