stop userfile decode/thaw crashes

[spider.git] / perl / QSL.pm

diff --git a/perl/QSL.pm b/perl/QSL.pm
index 1031c953eaa9523142c19b8b7ea55faf2c578e0d..d8a75c7f9d78441839642d79e89672b9d6defef9 100644 (file)
--- a/perl/QSL.pm
+++ b/perl/QSL.pm
@@ -115,9 +115,17 @@ sub get
        
        my $r = $dbm->get($key, $value);
        return undef if $r;
-       return thaw($value);
+       my $v;
+       eval { $v = thaw($value) };
+       if ($@) {
+               LogDbg("Error thawing DXQSL key '$key' (now deleted): $@");
+               eval {$dbm->del($key)};
+               return undef;
+       }
+       return $v;
 }
 
+
 sub put
 {
        return unless $dbm;