projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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;
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;
sub put
{
return unless $dbm;