fix the badspotter / bad node stuff being put all into baddx

This commit is contained in:
minima 2002-07-02 17:50:21 +00:00
parent da7476ca7a
commit 78953f794e
2 changed files with 6 additions and 2 deletions

View File

@ -1,3 +1,6 @@
02Jul02=======================================================================
1. Fixed the problem with badspotter or badnode being set to baddx if either
of the data files are missing.
25Jun02=======================================================================
1. as predicted there was an error in the Prefix routine, I have improved it.
24Jun02=======================================================================

View File

@ -35,9 +35,10 @@ sub new
{
my ($pkg, $name) = @_;
my $s = readfilestr($main::data, $name);
my $self = eval $s if $s;
my $self = undef;
$self = eval $s if $s;
dbg("error in reading $name in DXHash $@") if $@;
$self = bless {name => $name}, $pkg unless $self;
$self = bless({name => $name}, $pkg) unless defined $self;
return $self;
}