fix badword, ipv6 address detect, add CTY

[spider.git] / perl / DXHash.pm

diff --git a/perl/DXHash.pm b/perl/DXHash.pm
index cf9f05211c202ff10cd42798f22542822921dd36..28dc77d3ba4656ac03f5773db147a9531ea647d1 100644 (file)
--- a/perl/DXHash.pm
+++ b/perl/DXHash.pm
@@ -31,7 +31,7 @@ sub new
 
        # move existing file
        localdata_mv($name);
-       my $s = readfilestr($main::local_data, $name);
+       my $s = readfilestr($main::local_data, localdata($name));
        my $self = undef;
        $self = eval $s if $s;
        dbg("error in reading $name in DXHash $@") if $@;