projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix localdata(), add CTY 3105 prefixes
[spider.git]
/
perl
/
DXUtil.pm
diff --git
a/perl/DXUtil.pm
b/perl/DXUtil.pm
index 5edb1994a3ac80f3d496c6d0bc61b5364cf3abb6..73cda964733d53ea257a006ac8395af7ffe1b11c 100644
(file)
--- a/
perl/DXUtil.pm
+++ b/
perl/DXUtil.pm
@@
-478,19
+478,20
@@
sub deleteitem
sub localdata
{
my $ifn = shift;
sub localdata
{
my $ifn = shift;
- my $
o
fn = "$main::local_data/$ifn";
- my $
tfn
;
+ my $
l
fn = "$main::local_data/$ifn";
+ my $
dfn = "$main::data/$ifn"
;
if (-e "$main::local_data") {
if (-e "$main::local_data") {
- $tfn = "$main::data/$ifn";
- if ((-e $tfn) && (-e $ofn)) {
- $ofn = $tfn if -M $ofn < -M $tfn;
+ if ((-e $dfn) && (-e $lfn)) {
+ $lfn = $dfn if -M $dfn < -M $lfn;
} else {
} else {
- $
ofn = $tfn if -e $t
fn;
+ $
lfn = $dfn if -e $d
fn;
}
}
+ } else {
+ $lfn = $dfn;
}
}
- return $
o
fn;
+ return $
l
fn;
}
# move a file or a directory from data -> local_data if isn't there already
}
# move a file or a directory from data -> local_data if isn't there already