From 78953f794e49b311d2b2c84bb07c7b0f974278f9 Mon Sep 17 00:00:00 2001 From: minima Date: Tue, 2 Jul 2002 17:50:21 +0000 Subject: [PATCH] fix the badspotter / bad node stuff being put all into baddx --- Changes | 3 +++ perl/DXHash.pm | 5 +++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/Changes b/Changes index 6c97a796..9a8e8aec 100644 --- a/Changes +++ b/Changes @@ -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======================================================================= diff --git a/perl/DXHash.pm b/perl/DXHash.pm index 54faad9b..1ee8bb09 100644 --- a/perl/DXHash.pm +++ b/perl/DXHash.pm @@ -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; } -- 2.43.0