Changeset 32123
- Timestamp:
- 2018-02-08T14:34:56+13:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/FileUtils.pm
r32090 r32123 627 627 ## print STDERR "**** src = ", unicode::debug_unicode_string($src),"\n"; 628 628 # a few sanity checks 629 if (-e $dest) 630 { 631 # destination file already exists 632 return; 633 } 634 elsif (!-e $src) 629 if (!-e $src) 635 630 { 636 631 print STDERR "FileUtils::hardLink() source file \"" . $src . "\" does not exist\n"; … … 641 636 print STDERR "FileUtils::hardLink() source \"" . $src . "\" is a directory\n"; 642 637 return 1; 638 } 639 elsif (-e $dest) 640 { 641 print STDERR "FileUtils::hardlink() dest file ($dest) exists, removing it\n"; 642 &removeFiles($dest); 643 643 } 644 644
Note:
See TracChangeset
for help on using the changeset viewer.