X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUtil.pm;h=551a61921213ec00b90ab8a29738929bb0d647ce;hb=cfa6a715412c7c4972ec85034bd2d945751317cb;hp=8bb9b956c59d306b8aab36b6cab0807bca10c5bd;hpb=34f47f7d220c9244769f1c6360a92fcae18803ba;p=spider.git

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index 8bb9b956..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;