some detail changes to do with -w flags etc

[spider.git] / perl / Geomag.pm

diff --git a/perl/Geomag.pm b/perl/Geomag.pm
index 3ee013618f5554443d08c9bc64add9b647e4ff74..1a118fe07a869d5d60efb020556bda7180928092 100644 (file)
--- 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;