attempt to fix myalias/mycall external usurpation

[spider.git] / perl / QSL.pm

diff --git a/perl/QSL.pm b/perl/QSL.pm
index ec5512216f563ffe9929bad57253d9d87851799f..b9f4ee85ace6df724cab7ba30200f46c6778896d 100644 (file)
--- 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;
 }