X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FGeomag.pm;h=1a118fe07a869d5d60efb020556bda7180928092;hb=9a55af9586711ecdea8dc9b0da38509119fa8090;hp=3ee013618f5554443d08c9bc64add9b647e4ff74;hpb=f2c147d7ffa7b8dab43cbf0baf6834f8bb962fe0;p=spider.git

diff --git a/perl/Geomag.pm b/perl/Geomag.pm
index 3ee01361..1a118fe0 100644
--- a/perl/Geomag.pm
+++ b/perl/Geomag.pm
@@ -161,7 +161,7 @@ sub print
 						\$count++;
 						next if \$count < \$from;
 						push \@out, print_item(\$ref);
-						last LOOP if \$count >= \$to;                  # stop after n
+						last if \$count >= \$to;                  # stop after n
 					}
 				}
 			  );
@@ -179,6 +179,7 @@ LOOP:
 			}
 			eval $eval;               # do the search on this file
 			return ("Spot search error", $@) if $@;
+			last if $count >= $to;                  # stop after n
 		}
 		$fh = $fp->openprev();      # get the next file
 		last if !$fh;