66# All rights reserved.
77# Copyright (c) 2013-2014 Intel, Inc. All rights reserved.
88# $COPYRIGHT$
9- #
9+ #
1010# Additional copyrights may follow
11- #
11+ #
1212# $HEADER$
1313#
1414
7474my $patch_prog = " patch" ;
7575# Solaris "patch" doesn't understand unified diffs, and will cause
7676# autogen.pl to hang with a "File to patch:" prompt. Default to Linux
77- # "patch", but use "gpatch" on Solaris.
77+ # "patch", but use "gpatch" on Solaris.
7878if ($^O eq " solaris" ) {
7979 $patch_prog = " gpatch" ;
8080}
@@ -247,7 +247,7 @@ sub mca_process_component {
247247 $found_component -> {" name" } = $component ;
248248
249249 # Push the results onto the $mca_found hash array
250- push (@{$mca_found -> {$pname }-> {$framework }-> {" components" }},
250+ push (@{$mca_found -> {$pname }-> {$framework }-> {" components" }},
251251 $found_component );
252252
253253 # Is there an autogen.subdirs in here?
@@ -274,7 +274,7 @@ sub ignored {
274274 $unignore .= $_
275275 while (<UNIGNORE>);
276276 close (UNIGNORE);
277-
277+
278278 $ignored = 0
279279 if ($unignore =~ / ^$username $ /m ||
280280 $unignore =~ / ^$username \@ $hostname $ /m ||
@@ -307,13 +307,13 @@ sub mca_process_framework {
307307 # Look for component directories in this framework
308308 if (-d $dir ) {
309309 $mca_found -> {$pname }-> {$framework }-> {found } = 1;
310- opendir (DIR, $dir ) ||
310+ opendir (DIR, $dir ) ||
311311 my_die " Can't open $dir directory" ;
312312 foreach my $d (readdir (DIR)) {
313313 # Skip any non-directory, "base", or any dir that
314314 # begins with "."
315315 next
316- if (! -d " $dir /$d " || $d eq " base" ||
316+ if (! -d " $dir /$d " || $d eq " base" ||
317317 substr ($d , 0, 1) eq " ." );
318318
319319 # Skip any component that doesn't have a configure.m4
@@ -328,7 +328,7 @@ sub mca_process_framework {
328328
329329 verbose " --- Found $pname / $framework / $d component\n " ;
330330
331- # Skip if specifically excluded
331+ # Skip if specifically excluded
332332 if (exists ($exclude_list -> {$framework }) &&
333333 $exclude_list -> {$framework }[0] eq $d ) {
334334 verbose " => Excluded\n " ;
@@ -415,7 +415,7 @@ sub mca_process_project {
415415 # Look for framework directories in this project
416416 my $dir = " $topdir /$pdir /mca" ;
417417 if (-d $dir ) {
418- opendir (DIR, $dir ) ||
418+ opendir (DIR, $dir ) ||
419419 my_die " Can't open $dir directory" ;
420420 my @my_dirs = readdir (DIR);
421421 @my_dirs = sort (@my_dirs );
@@ -493,7 +493,7 @@ sub mca_run_global {
493493 # Does this project have a configure.m4 file?
494494 push (@includes , " $pdir /configure.m4" )
495495 if (exists ($mca_found -> {$p }-> {" configure.m4" }));
496-
496+
497497 # Print out project-level info
498498 my @mykeys = keys (%{$mca_found -> {$pname }});
499499 @mykeys = sort (@mykeys );
@@ -553,7 +553,7 @@ sub mca_run_global {
553553 }
554554 $m4_config_component_list =~ s / ^, // ;
555555 $no_config_component_list =~ s / ^, // ;
556-
556+
557557 $m4 .= " dnl Components in the $pname / $f framework
558558m4_define([mca_${pname} _${f} _m4_config_component_list], [$m4_config_component_list ])
559559m4_define([mca_${pname} _${f} _no_config_component_list], [$no_config_component_list ])
@@ -576,7 +576,7 @@ sub mca_run_global {
576576
577577sub mpiext_process_extension {
578578 my ($topdir , $ext_prefix , $extdir ) = @_ ;
579-
579+
580580 my $edir = " $topdir /$ext_prefix /$extdir " ;
581581 return
582582 if (! -d $edir );
@@ -602,13 +602,13 @@ sub mpiext_run_global {
602602 my $topdir = Cwd::cwd();
603603
604604 my $dir = " $topdir /$ext_prefix " ;
605- opendir (DIR, $dir ) ||
605+ opendir (DIR, $dir ) ||
606606 my_die " Can't open $dir directory" ;
607607 foreach my $d (readdir (DIR)) {
608608 # Skip any non-directory, "base", or any dir that begins with "."
609609 next
610610 if (! -d " $dir /$d " || $d eq " base" || substr ($d , 0, 1) eq " ." );
611-
611+
612612 # If this directory has a configure.m4, then it's an
613613 # extension.
614614 if (-f " $dir /$d /configure.m4" ) {
@@ -663,7 +663,7 @@ sub mpiext_run_global {
663663
664664sub mpicontrib_process {
665665 my ($topdir , $contrib_prefix , $contribdir ) = @_ ;
666-
666+
667667 my $cdir = " $topdir /$contrib_prefix /$contribdir " ;
668668 return
669669 if (! -d $cdir );
@@ -689,13 +689,13 @@ sub mpicontrib_run_global {
689689 my $topdir = Cwd::cwd();
690690
691691 my $dir = " $topdir /$contrib_prefix " ;
692- opendir (DIR, $dir ) ||
692+ opendir (DIR, $dir ) ||
693693 my_die " Can't open $dir directory" ;
694694 foreach my $d (readdir (DIR)) {
695695 # Skip any non-directory, "base", or any dir that begins with "."
696696 next
697697 if (! -d " $dir /$d " || $d eq " base" || substr ($d , 0, 1) eq " ." );
698-
698+
699699 # If this directory has a configure.m4, then it's an
700700 # extension.
701701 if (-f " $dir /$d /configure.m4" ) {
@@ -821,7 +821,7 @@ sub find_and_check {
821821 if ($pn > $mn ) {
822822 verbose " ==> ACCEPTED\n " ;
823823 return ;
824- }
824+ }
825825 # If the version is lower, we're done.
826826 elsif ($pn < $mn ||
827827 ($pn == $mn && $pa lt $ma )) {
@@ -931,13 +931,13 @@ sub patch_autotools_output {
931931 # Similar issue as above -- fix the case statements that handle the Sun
932932 # Fortran version strings.
933933 #
934- # Note: we have to use octal escapes to match '*Sun\ F*) and the
934+ # Note: we have to use octal escapes to match '*Sun\ F*) and the
935935 # four succeeding lines in the bourne shell switch statement.
936936 # \ = 134
937937 # ) = 051
938938 # * = 052
939939 #
940- # Below is essentially an upstream patch for Libtool which we want
940+ # Below is essentially an upstream patch for Libtool which we want
941941 # made available to Open MPI users running older versions of Libtool
942942
943943 foreach my $tag ((" " , " _FC" )) {
@@ -1066,7 +1066,7 @@ sub patch_autotools_output {
10661066$dnl_line
10671067dnl This file is automatically created by autogen.pl; it should not
10681068dnl be edited by hand!!
1069- dnl
1069+ dnl
10701070dnl Generated by $username at " . localtime (time ) . "
10711071dnl on $full_hostname .
10721072$dnl_line \n\n " ;
@@ -1269,7 +1269,7 @@ sub patch_autotools_output {
12691269# Remove the old m4 file and write the new one
12701270verbose " ==> Writing m4 file with autogen.pl results\n " ;
12711271unlink ($m4_output_file );
1272- open (M4, " >$m4_output_file " ) ||
1272+ open (M4, " >$m4_output_file " ) ||
12731273 my_die " Can't open $m4_output_file " ;
12741274print M4 $m4 ;
12751275close (M4);
0 commit comments