remove check for existing user out of DXUser::new

[spider.git] / perl / DXUser.pm

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 554a9930cdfc35ee6174c18a9893774fdd827cd7..fc2dab5c7a64106a7a30e1262fbcb7466b2b58bc 100644 (file)
--- 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;
@@ -113,7 +114,7 @@ sub new
        my $call = uc shift;
        #  $call =~ s/-\d+$//o;
   
-       confess "can't create existing call $call in User\n!" if $u{$call};
+#      confess "can't create existing call $call in User\n!" if $u{$call};
 
        my $self = bless {}, $pkg;
        $self->{call} = $call;
@@ -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;