Changeset 29243 for gs2-extensions/parallel-building
- Timestamp:
- 2014-08-28T14:18:25+12:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/parallel-building/trunk/src/perllib/FileUtils.pm
r28653 r29243 39 39 # Configuration 40 40 my $debug = 0; 41 my $linking_disabled = 1; 41 42 42 43 # Globals … … 550 551 my $dst_driver = &FileUtils::_determineDriver($dst_file); 551 552 # you can only symbolic link within the same file system - always 552 if ($src_driver eq 'LocalFS' && $src_driver eq $dst_driver )553 if ($src_driver eq 'LocalFS' && $src_driver eq $dst_driver && !$linking_disabled) 553 554 { 554 555 &FileUtils::_callFunction($src_driver, 'linkFile', 'HARD', $src_file, $dst_file); … … 769 770 my $dst_driver = &FileUtils::_determineDriver($dst_file); 770 771 # you can only symbolic link within the same file system - always 771 if ($src_driver eq 'LocalFS' && $src_driver eq $dst_driver )772 if ($src_driver eq 'LocalFS' && $src_driver eq $dst_driver && !$linking_disabled) 772 773 { 773 774 &FileUtils::_callFunction($src_driver, 'linkFile', 'SOFT', $src_file, $dst_file, @_);
Note:
See TracChangeset
for help on using the changeset viewer.