Changeset 29243


Ignore:
Timestamp:
08/28/14 14:18:25 (7 years ago)
Author:
jmt12
Message:

Allowing for file linking to be disabled

File:
1 edited

Legend:

Unmodified
Added
Removed
  • gs2-extensions/parallel-building/trunk/src/perllib/FileUtils.pm

    r28653 r29243  
    3939# Configuration
    4040my $debug = 0;
     41my $linking_disabled = 1;
    4142
    4243# Globals
     
    550551  my $dst_driver = &FileUtils::_determineDriver($dst_file);
    551552  # 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)
    553554  {
    554555    &FileUtils::_callFunction($src_driver, 'linkFile', 'HARD', $src_file, $dst_file);
     
    769770  my $dst_driver = &FileUtils::_determineDriver($dst_file);
    770771  # 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)
    772773  {
    773774    &FileUtils::_callFunction($src_driver, 'linkFile', 'SOFT', $src_file, $dst_file, @_);
Note: See TracChangeset for help on using the changeset viewer.