X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FQSL.pm;fp=perl%2FQSL.pm;h=b9f4ee85ace6df724cab7ba30200f46c6778896d;hb=5094a0b55d903d344277adf9d26b5af8e37247d8;hp=ec5512216f563ffe9929bad57253d9d87851799f;hpb=54775ee86e54343a0fba66a0bbca3567de96cf46;p=spider.git

diff --git a/perl/QSL.pm b/perl/QSL.pm
index ec551221..b9f4ee85 100644
--- a/perl/QSL.pm
+++ b/perl/QSL.pm
@@ -48,7 +48,7 @@ sub init
 sub finish
 {
 	dbg("DXQSL finished");
-	$dbm->sync;
+	$dbm->sync if $dbm;
 	undef $dbm;
 	untie %u;
 }