X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FQSL.pm;h=ec5512216f563ffe9929bad57253d9d87851799f;hb=refs%2Fheads%2Fstaging;hp=1fd7130bf049b92b94121de721cc7e85cdc1f2df;hpb=7e3729a9039462c460dae4804f40c0bd506f3423;p=spider.git

diff --git a/perl/QSL.pm b/perl/QSL.pm
index 1fd7130b..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;
@@ -148,4 +149,12 @@ sub encode
 	return $json->encode($_[0]);
 }
 
+sub END
+{
+	if ($dbm) {
+		dbg "DXQSL ENDing";
+		finish();
+	}
+}
+
 1;