projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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) {
my $ref = shift;
my $out;
for (sort keys %$ref) {
- $out .= "$_=
$ref->{$_}
, ";
+ $out .= "$_=
" . atime($ref->{$_}) . "
, ";
}
chop $out;
chop $out;
}
chop $out;
chop $out;
@@
-477,9
+477,11
@@
sub localdata
if (-e "$main::local_data") {
$tfn = "$main::data/$ifn";
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;
$ofn = $tfn if -M $ofn < -M $tfn;
- }
+ } else {
+ $ofn = $tfn if -e $tfn;
+ }
}
return $ofn;
}
return $ofn;