X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUtil.pm;h=8bb9b956c59d306b8aab36b6cab0807bca10c5bd;hb=a645d1b0058cd4a02d88d5657ed915fc6e88b1a7;hp=b669b3b3f8c78715b891e146f12e172d266f803e;hpb=b3798e93940ba3cd0ef8a06ea7771ef3f1fba10f;p=spider.git diff --git a/perl/DXUtil.pm b/perl/DXUtil.pm index b669b3b3..8bb9b956 100644 --- a/perl/DXUtil.pm +++ b/perl/DXUtil.pm @@ -477,10 +477,10 @@ 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; - } elsif (-e tfn) { - $ofn = $tfn; + } else { + $ofn = $tfn if -e $tfn; } }