X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcreate_qsl.pl;h=99b070e4ad9068d256e28ea0287c56f49479bd10;hb=73edaec40b921e6e932b2fb873f2d6ce381d1d92;hp=b3e514de244989bb9ae366cc3d5bea8f581da72e;hpb=25270ac4d9d486c2749515c8b8f32e223d4f38b7;p=spider.git

diff --git a/perl/create_qsl.pl b/perl/create_qsl.pl
index b3e514de..99b070e4 100755
--- 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();