X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXHash.pm;h=cf9f05211c202ff10cd42798f22542822921dd36;hb=ceb2daf21a03249decadc86f4b90711fe8a53b0e;hp=28dc77d3ba4656ac03f5773db147a9531ea647d1;hpb=400227d4bd709387099bf224b1c00a6f988c8196;p=spider.git

diff --git a/perl/DXHash.pm b/perl/DXHash.pm
index 28dc77d3..cf9f0521 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, localdata($name));
+	my $s = readfilestr($main::local_data, $name);
 	my $self = undef;
 	$self = eval $s if $s;
 	dbg("error in reading $name in DXHash $@") if $@;