Changeset 27531 for gs2-extensions/parallel-building

Timestamp:

2013-06-04T11:11:39+12:00 (11 years ago)

Author:

jmt12

Message:

Only output the message about using copy instead of hard/soft link once

File:

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

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

@@ -39 +39 @@
 # Configuration
 my $debug = 0;
+
+# Globals
+my $done_link_warning = 0;
 
 ## @function _callFunction($driver_name, $function_name, ...)
@@ -554 +557 @@
   elsif ($src_driver ne 'LocalFS')
   {
-    &printWarning('Cannot symbolic link on non-local file systems - copying instead: ' . $src_file . ' => ' . $dst_file);
+    if (!$done_link_warning)
+    {
+      &printWarning('Cannot symbolic link on non-local file systems - copying all files instead');
+      $done_link_warning = 1;
+    }
     &transferFiles($src_file, $dst_file, 'COPY');
   }
   else
   {
-    &printWarning('Cannot symbolic link between file systems - copying instead: ' . $src_file . ' => ' . $dst_file);
+    if (!$done_link_warning)
+    {
+      &printWarning('Cannot symbolic link between file systems - copying all files instead');
+      $done_link_warning = 1;
+    }
     &transferFiles($src_file, $dst_file, 'COPY');
   }
@@ -585 +596 @@
   my $path = shift(@_);
   my $driver = &FileUtils::_determineDriver($path);
-  return &FileUtils::_callFunction($driver, 'isHDFS');
+  my $result = &FileUtils::_callFunction($driver, 'isHDFS');
+  ###rint STDERR "[DEBUG] FileUtils::isHDFS(" . $path . ") => " . $result . "\n";
+  return $result;
 }
 ## isHDFS()
@@ -763 +776 @@
   elsif ($src_driver ne 'LocalFS')
   {
-    &printWarning('Cannot symbolic link on non-local file systems - copying instead: ' . $src_file . ' => ' . $dst_file);
+    if (!$done_link_warning)
+    {
+      &printWarning('Cannot symbolic link on non-local file systems - copying all files instead');
+      $done_link_warning = 1;
+    }
     &transferFiles($src_file, $dst_file, 'COPY');
   }
   else
   {
-    &printWarning('Cannot symbolic link between file systems - copying instead: ' . $src_file . ' => ' . $dst_file);
+    if (!$done_link_warning)
+    {
+      &printWarning('Cannot symbolic link between file systems - copying all files instead');
+      $done_link_warning = 1;
+    }
     &transferFiles($src_file, $dst_file, 'COPY');
   }