X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=9f61312e87554d9d5576765f324ed84054e94f73;hb=d48a80e399a780eb6a880870346a46e02f0e7972;hp=554a9930cdfc35ee6174c18a9893774fdd827cd7;hpb=6b19958cbe351af8d5462f4e0e03b87875eec16a;p=spider.git diff --git a/perl/DXUser.pm b/perl/DXUser.pm index 554a9930..9f61312e 100644 --- a/perl/DXUser.pm +++ b/perl/DXUser.pm @@ -216,7 +216,7 @@ sub decode my $s = shift; my $ref; $s = '$ref = ' . $s; - eval { $s; }; + eval $s; Log('DXUser', $@) if $@; $ref = undef if $@; return $ref;