fix it up a bit

diff --git a/perl/QSL.pm b/perl/QSL.pm
index 35117b1ba9bc5a1f7da9b06efca87121de2f0612..3fab28627d66efa4014adc628332dfd7496dbf0f 100644 (file)
--- 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 b3e514de244989bb9ae366cc3d5bea8f581da72e..99b070e4ad9068d256e28ea0287c56f49479bd10 100755 (executable)
--- 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();