Added BBS.pm to start allowing BBSes to send mail into the cluster

[spider.git] / perl / DXUser.pm

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index a8fb7788c2e5406081f190c600970479c0a0b68b..554a9930cdfc35ee6174c18a9893774fdd827cd7 100644 (file)
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -216,8 +216,9 @@ sub decode
        my $s = shift;
        my $ref;
        $s = '$ref = ' . $s;
-       eval $s;
-       confess $@ if $@;
+       eval { $s; };
+       Log('DXUser', $@) if $@;
+       $ref = undef if $@;
        return $ref;
 }