From d48a80e399a780eb6a880870346a46e02f0e7972 Mon Sep 17 00:00:00 2001
From: djk <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