X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FQSL.pm;h=b9f4ee85ace6df724cab7ba30200f46c6778896d;hb=49d7cd28623df3c4accf72d48f74b4b00238a81a;hp=1fd7130bf049b92b94121de721cc7e85cdc1f2df;hpb=7e3729a9039462c460dae4804f40c0bd506f3423;p=spider.git

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