fix it up a bit

[spider.git] / perl / create_qsl.pl

diff --git a/perl/create_qsl.pl b/perl/create_qsl.pl
index b3e514de244989bb9ae366cc3d5bea8f581da72e..99b070e4ad9068d256e28ea0287c56f49479bd10 100755 (executable)
--- a/perl/create_qsl.pl
+++ b/perl/create_qsl.pl
@@ -56,6 +56,7 @@ foreach my $year (sort readdir YEAR) {
                my $f = new IO::File $fn  or die "$fn ($!)"; 
                print "doing: $fn\n";
                while (<$f>) {
+                       last if $end;
                        if (/(QSL|VIA)/i) {
                                my ($freq, $call, $t, $comment, $by, @rest) = split /\^/;
                                my $q = QSL::get($call) || new QSL $call;
@@ -64,7 +65,9 @@ foreach my $year (sort readdir YEAR) {
                        }
                }
                $f->close;
+               last if $end;
        }
+       last if $end;
 }
 
 QSL::finish();