Changeset 29243

Show
Ignore:
Timestamp:
28.08.2014 14:18:25 (5 years ago)
Author:
jmt12
Message:

Allowing for file linking to be disabled

Files:
1 modified

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, @_);