X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXHash.pm;h=28dc77d3ba4656ac03f5773db147a9531ea647d1;hb=6ec22e78a4a344ce675645fabf18b2a1971f364a;hp=cf9f05211c202ff10cd42798f22542822921dd36;hpb=53b251b7abcc15dd2f854b7e8c2e71a075e9969a;p=spider.git

diff --git a/perl/DXHash.pm b/perl/DXHash.pm
index cf9f0521..28dc77d3 100644
--- 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 $@;