From 73edaec40b921e6e932b2fb873f2d6ce381d1d92 Mon Sep 17 00:00:00 2001
From: minima <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.34.1