From 73edaec40b921e6e932b2fb873f2d6ce381d1d92 Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 10 Mar 2003 23:49:31 +0000 Subject: [PATCH] fix it up a bit --- perl/QSL.pm | 1 - perl/create_qsl.pl | 3 +++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/perl/QSL.pm b/perl/QSL.pm index 35117b1b..3fab2862 100644 --- a/perl/QSL.pm +++ b/perl/QSL.pm @@ -91,7 +91,6 @@ sub put my $self = shift; my $key = $self->[0]; my $value = nfreeze($self); - $dbm->del($key); $dbm->put($key, $value); } 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(); -- 2.43.0