X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUtil.pm;h=b669b3b3f8c78715b891e146f12e172d266f803e;hb=b3798e93940ba3cd0ef8a06ea7771ef3f1fba10f;hp=4477a94bef90a3ef8e5abdc5ad5814fc53eb3bbb;hpb=a460c345801374bfdccaf135ab1b03e5115f4266;p=spider.git diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm index 4477a94b..b669b3b3 100644 --- a/perl/DXUtil.pm +++ b/perl/DXUtil.pm @@ -479,7 +479,9 @@ sub localdata $tfn = "$main::data/$ifn"; if (-e $tfn && -e $ofn) { $ofn = $tfn if -M $ofn < -M $tfn; - } + } elsif (-e tfn) { + $ofn = $tfn; + } } return $ofn;