projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
da7476c
)
fix the badspotter / bad node stuff being put all into baddx
author
minima
<minima>
Tue, 2 Jul 2002 17:50:21 +0000
(17:50 +0000)
committer
minima
<minima>
Tue, 2 Jul 2002 17:50:21 +0000
(17:50 +0000)
Changes
patch
|
blob
|
history
perl/DXHash.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index 6c97a796c66b691dcddb4c5d40706f2de336a1df..9a8e8aec6876afb41f9e7a1ff021164f5576f1b5 100644
(file)
--- 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=======================================================================
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 54faad9bf4d586b0ddb79e63793f6cbe96c978f4..1ee8bb099bd2082938b2ba2f9b89ab9f118a7257 100644
(file)
--- a/
perl/DXHash.pm
+++ b/
perl/DXHash.pm
@@
-35,9
+35,10
@@
sub new
{
my ($pkg, $name) = @_;
my $s = readfilestr($main::data, $name);
{
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 $@;
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;
}
return $self;
}