X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=fc2dab5c7a64106a7a30e1262fbcb7466b2b58bc;hb=89ab02190d47c949e48b303260055f00591e3cdd;hp=a6474abe51db668752c5832d7150dc97e6958cbc;hpb=9e13a6bbc1394541f11c75a82805a6e4966e3e9c;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index a6474abe..fc2dab5c 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -114,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;