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

diff --git a/perl/create_qsl.pl b/perl/create_qsl.pl
index b3e514de..2cca7b31 100755
--- a/perl/create_qsl.pl
+++ b/perl/create_qsl.pl
@@ -1,10 +1,10 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 #
 # Implement a 'GO' database list
 #
 # 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();