X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=a6474abe51db668752c5832d7150dc97e6958cbc;hb=9e13a6bbc1394541f11c75a82805a6e4966e3e9c;hp=554a9930cdfc35ee6174c18a9893774fdd827cd7;hpb=6b19958cbe351af8d5462f4e0e03b87875eec16a;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 554a9930..a6474abe 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -11,6 +11,7 @@ package DXUser;
 require Exporter;
 @ISA = qw(Exporter);
 
+use DXLog;
 use DB_File;
 use Fcntl;
 use Carp;
@@ -216,7 +217,7 @@ sub decode
 	my $s = shift;
 	my $ref;
 	$s = '$ref = ' . $s;
-	eval { $s; };
+	eval $s;
 	Log('DXUser', $@) if $@;
 	$ref = undef if $@;
 	return $ref;