Changeset 22119 for main/trunk
- Timestamp:
- 2010-05-19T17:50:32+12:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/util.pm
r21762 r22119 440 440 mk_all_dir($dest_dir) if (!-e $dest_dir); 441 441 442 # link not supported on windows 9x 443 if (($ENV{'GSDLOS'} =~ /^windows$/i) && (Win32::FsType() !~ /^ntfs$/i)) { 444 &File::Copy::copy ($src, $dest); 445 446 } elsif (!link($src, $dest)) { 442 443 if (!link($src, $dest)) { 447 444 if ((!defined $verbosity) || ($verbosity>2)) { 448 445 print STDERR "util::hard_link: unable to create hard link. ";
Note:
See TracChangeset
for help on using the changeset viewer.