stop userfile decode/thaw crashes

[spider.git] / perl / DXUser.pm

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 25672f969d7f8502160b1c941f9490c3f0eb4cf5..c611fac376ca54605fa6967dd6e43d87d68dc787 100644 (file)
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -247,7 +247,7 @@ sub get
        
        # search for it
        unless ($dbm->get($call, $data)) {
-               $ref = decode($data);
+               $ref = eval{decode($data)};
                if ($ref) {
                        if (!UNIVERSAL::isa($ref, 'DXUser')) {
                                dbg("DXUser::get: got strange answer from decode of $call". ref $ref. " ignoring");
@@ -255,7 +255,7 @@ sub get
                        }
                        # we have a reference and it *is* a DXUser
                } else {
-                       dbg("DXUser::get: no reference returned from decode of $call $!");
+                       dbg("DXUser::get: no reference returned from decode of $call $! $@");
                        return undef;
                }
                $lru->put($call, $ref);