X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=840913d1cd9184e90683e7b70d611f782fd84c7e;hb=dd902a3e23aeb207178d9960f17b757262842ed6;hp=74b3f77319decf08c9f004a471d7cc34b46161e4;hpb=677f9d4ae7355cb6e5d05c3782a39e9022647f5b;p=spider.git

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