Changeset 27531 for gs2-extensions/parallel-building/trunk
- Timestamp:
- 2013-06-04T11:11:39+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gs2-extensions/parallel-building/trunk/src/perllib/FileUtils.pm
r27526 r27531 39 39 # Configuration 40 40 my $debug = 0; 41 42 # Globals 43 my $done_link_warning = 0; 41 44 42 45 ## @function _callFunction($driver_name, $function_name, ...) … … 554 557 elsif ($src_driver ne 'LocalFS') 555 558 { 556 &printWarning('Cannot symbolic link on non-local file systems - copying instead: ' . $src_file . ' => ' . $dst_file); 559 if (!$done_link_warning) 560 { 561 &printWarning('Cannot symbolic link on non-local file systems - copying all files instead'); 562 $done_link_warning = 1; 563 } 557 564 &transferFiles($src_file, $dst_file, 'COPY'); 558 565 } 559 566 else 560 567 { 561 &printWarning('Cannot symbolic link between file systems - copying instead: ' . $src_file . ' => ' . $dst_file); 568 if (!$done_link_warning) 569 { 570 &printWarning('Cannot symbolic link between file systems - copying all files instead'); 571 $done_link_warning = 1; 572 } 562 573 &transferFiles($src_file, $dst_file, 'COPY'); 563 574 } … … 585 596 my $path = shift(@_); 586 597 my $driver = &FileUtils::_determineDriver($path); 587 return &FileUtils::_callFunction($driver, 'isHDFS'); 598 my $result = &FileUtils::_callFunction($driver, 'isHDFS'); 599 ###rint STDERR "[DEBUG] FileUtils::isHDFS(" . $path . ") => " . $result . "\n"; 600 return $result; 588 601 } 589 602 ## isHDFS() … … 763 776 elsif ($src_driver ne 'LocalFS') 764 777 { 765 &printWarning('Cannot symbolic link on non-local file systems - copying instead: ' . $src_file . ' => ' . $dst_file); 778 if (!$done_link_warning) 779 { 780 &printWarning('Cannot symbolic link on non-local file systems - copying all files instead'); 781 $done_link_warning = 1; 782 } 766 783 &transferFiles($src_file, $dst_file, 'COPY'); 767 784 } 768 785 else 769 786 { 770 &printWarning('Cannot symbolic link between file systems - copying instead: ' . $src_file . ' => ' . $dst_file); 787 if (!$done_link_warning) 788 { 789 &printWarning('Cannot symbolic link between file systems - copying all files instead'); 790 $done_link_warning = 1; 791 } 771 792 &transferFiles($src_file, $dst_file, 'COPY'); 772 793 }
Note:
See TracChangeset
for help on using the changeset viewer.