X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcreate_qsl.pl;h=85134ea101b658d541b50a4a6e7f414d57a85d4a;hb=33f141e624a2443f6fa7d3608417047108251e28;hp=b3e514de244989bb9ae366cc3d5bea8f581da72e;hpb=25270ac4d9d486c2749515c8b8f32e223d4f38b7;p=spider.git

diff --git a/perl/create_qsl.pl b/perl/create_qsl.pl
index b3e514de..85134ea1 100755
--- a/perl/create_qsl.pl
+++ b/perl/create_qsl.pl
@@ -4,7 +4,7 @@
 #
 # Copyright (c) 2003 Dirk Koopman G1TLH
 #
-# $Id$
+#
 #
 
 # search local then perl directories
@@ -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();