X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=0761f07d0522f865ad10d4c950df4d12033f7f02;hb=557d4f48a1d7c30a162967ed23edd674f14504f2;hp=2d04f411e14973c47de9712e53a032e516d79809;hpb=846aa525969cab9b37936fb33b8705a68fd52886;p=spider.git

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 2d04f411..0761f07d 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;