X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUtil.pm;h=93030bfc88e785987c49b7f9e85d334ffc6ba43a;hb=d1daa87473f824fcae5751e2576c31265bf53544;hp=b58a4528d5649bc60df8dbcd23e892e58bde30b5;hpb=c94ff1bf2cbe16ed59c5b273c7f6730fd7314cab;p=spider.git

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index b58a4528..93030bfc 100644
--- a/perl/DXUtil.pm
+++ b/perl/DXUtil.pm
@@ -484,8 +484,10 @@ sub localdata
 	my $tfn;
 	
 	if (-e "$main::local_data") {
-		$tfn = "main::local_data/$ifn";
-		if (-e $tfn && -M $tfn < -M $ofn) {
+		$tfn = "$main::local_data/$ifn";
+		if (-e $tfn && -e $ofn) {
+			$ofn = $tfn if -M $tfn < -M $ofn;
+		} elsif (-e $tfn) {
 			$ofn = $tfn;
 		}
 	}