X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUtil.pm;h=4477a94bef90a3ef8e5abdc5ad5814fc53eb3bbb;hb=a460c345801374bfdccaf135ab1b03e5115f4266;hp=28e7396dcebd3143d25d29b49c989e98c4c7592d;hpb=8319342af0b4eecd2108bb8552ce685e01ad365f;p=spider.git

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index 28e7396d..4477a94b 100644
--- a/perl/DXUtil.pm
+++ b/perl/DXUtil.pm
@@ -472,16 +472,14 @@ sub deleteitem
 sub localdata
 {
 	my $ifn = shift;
-	my $ofn = "$main::data/$ifn";
+	my $ofn = "$main::local_data/$ifn";
 	my $tfn;
 	
 	if (-e "$main::local_data") {
-		$tfn = "$main::local_data/$ifn";
+		$tfn = "$main::data/$ifn";
 		if (-e $tfn && -e $ofn) {
-			$ofn = $tfn if -M $tfn < -M $ofn;
-		} elsif (-e $tfn) {
-			$ofn = $tfn;
-		}
+			$ofn = $tfn if -M $ofn < -M $tfn;
+		} 
 	}
 
 	return $ofn;