From: minima <minima>
Date: Mon, 10 Mar 2003 23:49:31 +0000 (+0000)
Subject: fix it up a bit
X-Git-Tag: PRE-1-52~29
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=73edaec40b921e6e932b2fb873f2d6ce381d1d92;p=spider.git

fix it up a bit
---

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();