Changeset 2193 for trunk/gsdl/perllib/util.pm
- Timestamp:
- 2001-03-19T10:46:39+12:00 (23 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/util.pm
r2039 r2193 298 298 mk_all_dir($dest_dir) if (!-e $dest_dir); 299 299 300 # link not supported on w ondows300 # link not supported on windows 301 301 if ($ENV{'GSDLOS'} =~ /^windows$/i) { 302 302 &File::Copy::copy ($src, $dest); … … 309 309 } 310 310 311 # make soft link to file if supported by OS, otherwise return error311 # make soft link to file if supported by OS, otherwise copy file 312 312 sub soft_link { 313 313 my ($src, $dest) = @_; … … 326 326 mk_all_dir($dest_dir) if (!-e $dest_dir); 327 327 328 if (!eval {symlink($src, $dest)}) 329 { 328 if ($ENV{'GSDLOS'} =~ /^windows$/i) { 329 # symlink not supported on windows 330 &File::Copy::copy ($src, $dest); 331 332 } elsif (!eval {symlink($src, $dest)}) { 330 333 print STDERR "util::soft_link: unable to create soft link."; 331 334 return 0;
Note:
See TracChangeset
for help on using the changeset viewer.