]>
dxcluster.org Git - spider.git/blobdiff - perl/DXUser.pm
require Exporter;
@ISA = qw(Exporter);
+use DXLog;
use DB_File;
use Fcntl;
use Carp;
my $s = shift;
my $ref;
$s = '$ref = ' . $s;
- eval { $s; };
+ eval $s;
Log('DXUser', $@) if $@;
$ref = undef if $@;
return $ref;