X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FQSL.pm;h=ec5512216f563ffe9929bad57253d9d87851799f;hb=cc49b8f8c2ec3a975c7ace3f5bd8679580288406;hp=1fd7130bf049b92b94121de721cc7e85cdc1f2df;hpb=b84cf84a242ce805eef4b5406bacb9016274243d;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;