Changeset 29243 for gs2-extensions/parallel-building

Timestamp:

2014-08-28T14:18:25+12:00 (10 years ago)

Author:

jmt12

Message:

Allowing for file linking to be disabled

File:

• gs2-extensions/parallel-building/trunk/src/perllib/FileUtils.pm (modified) (3 diffs)

gs2-extensions/parallel-building/trunk/src/perllib/FileUtils.pm

@@ -39 +39 @@
 # Configuration
 my $debug = 0;
+my $linking_disabled = 1;
 
 # Globals
@@ -550 +551 @@
   my $dst_driver = &FileUtils::_determineDriver($dst_file);
   # you can only symbolic link within the same file system - always
-  if ($src_driver eq 'LocalFS' && $src_driver eq $dst_driver)
+  if ($src_driver eq 'LocalFS' && $src_driver eq $dst_driver && !$linking_disabled)
   {
     &FileUtils::_callFunction($src_driver, 'linkFile', 'HARD', $src_file, $dst_file);
@@ -769 +770 @@
   my $dst_driver = &FileUtils::_determineDriver($dst_file);
   # you can only symbolic link within the same file system - always
-  if ($src_driver eq 'LocalFS' && $src_driver eq $dst_driver)
+  if ($src_driver eq 'LocalFS' && $src_driver eq $dst_driver && !$linking_disabled)
   {
     &FileUtils::_callFunction($src_driver, 'linkFile', 'SOFT', $src_file, $dst_file, @_);