X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=0761f07d0522f865ad10d4c950df4d12033f7f02;hb=dd01a8824f3896015e031cf301181760a6496bbd;hp=74b3f77319decf08c9f004a471d7cc34b46161e4;hpb=b25a235529526f5d2d653322800d2f5f1e0ae760;p=spider.git

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 74b3f773..0761f07d 100644
--- 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;
 	}
 }
 
@@ -307,6 +307,7 @@ sub search
 				   my \@s = split /\\^/;
                    $checkfilter;
                    push \@spots, \\\@s;
+                   shift \@spots if \@spots > $to + 2; 
 			   }
 			   my \$c;
 			   my \$ref;