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

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