X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXHash.pm;h=cf9f05211c202ff10cd42798f22542822921dd36;hb=42e13afbe924d02919cef432ab0cee537ed1e20d;hp=28dc77d3ba4656ac03f5773db147a9531ea647d1;hpb=6ec22e78a4a344ce675645fabf18b2a1971f364a;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 $@;