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