X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUtil.pm;h=551a61921213ec00b90ab8a29738929bb0d647ce;hb=cfa6a715412c7c4972ec85034bd2d945751317cb;hp=4477a94bef90a3ef8e5abdc5ad5814fc53eb3bbb;hpb=a460c345801374bfdccaf135ab1b03e5115f4266;p=spider.git

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index 4477a94b..551a6192 100644
--- a/perl/DXUtil.pm
+++ b/perl/DXUtil.pm
@@ -182,7 +182,7 @@ sub ptimelist
 	my $ref = shift;
 	my $out;
 	for (sort keys %$ref) {
-		$out .= "$_=$ref->{$_}, ";
+		$out .= "$_=" . atime($ref->{$_}) . ", ";
 	}
 	chop $out;
 	chop $out;
@@ -477,9 +477,11 @@ sub localdata
 	
 	if (-e "$main::local_data") {
 		$tfn = "$main::data/$ifn";
-		if (-e $tfn && -e $ofn) {
+		if ((-e $tfn) && (-e $ofn)) {
 			$ofn = $tfn if -M $ofn < -M $tfn;
-		} 
+		} else {
+			$ofn = $tfn if -e $tfn;
+		}
 	}
 
 	return $ofn;