tidy up Route, add argument to sh/ver

[spider.git] / perl / DXUtil.pm

diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm
index 4477a94bef90a3ef8e5abdc5ad5814fc53eb3bbb..551a61921213ec00b90ab8a29738929bb0d647ce 100644 (file)
--- 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;