From 89ab02190d47c949e48b303260055f00591e3cdd Mon Sep 17 00:00:00 2001 From: djk Date: Tue, 16 Nov 1999 20:56:02 +0000 Subject: [PATCH] remove check for existing user out of DXUser::new --- perl/DXUser.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; -- 2.43.0