X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=554a9930cdfc35ee6174c18a9893774fdd827cd7;hb=6b19958cbe351af8d5462f4e0e03b87875eec16a;hp=a8fb7788c2e5406081f190c600970479c0a0b68b;hpb=0e84728de35d2dadbb9d624614a471b68ae9eef6;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index a8fb7788..554a9930 100644
--- 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;
 }