From d48a80e399a780eb6a880870346a46e02f0e7972 Mon Sep 17 00:00:00 2001 From: djk Date: Sun, 14 Nov 1999 20:55:36 +0000 Subject: [PATCH 1/1] got rid of useless brakets on eval in decode in DXUser --- perl/DXUser.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; -- 2.43.0