require Exporter;
@ISA = qw(Exporter);
+use DXLog;
use DB_File;
use Fcntl;
use Carp;
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;