X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FQSL.pm;h=b9f4ee85ace6df724cab7ba30200f46c6778896d;hb=a13f69ce9f26ea2b95be1e6de1f14f50ab7065d8;hp=f62897bff61667086d98480f1aded750ce61a0ca;hpb=2733a992ac8c3d315c110a2cc1984ea0a5e5d0ff;p=spider.git

diff --git a/perl/QSL.pm b/perl/QSL.pm
index f62897bf..b9f4ee85 100644
--- 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;