fix it up a bit

[spider.git] / perl / QSL.pm

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