replace Storable->JSON in QSL.pm.

[spider.git] / perl / Spot.pm

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 74b3f77319decf08c9f004a471d7cc34b46161e4..2d04f411e14973c47de9712e53a032e516d79809 100644 (file)
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -222,7 +222,7 @@ sub add
        }
        if ($_[3] =~ /(?:QSL|VIA)/i) {
                my $q = QSL::get($_[1]) || new QSL $_[1];
-               $q->update($_[3], $_[2], $_[4]);
+               $q->update($_[3], $_[2], $_[4]) if $q;
        }
 }