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;
my $ref;
$s = '$ref = ' . $s;
eval $s;
- confess $@ if $@;
+ Log('DXUser', $@) if $@;
+ $ref = undef if $@;
return $ref;
}