88# Copyright (c) 2015 Research Organization for Information Science
99# and Technology (RIST). All rights reserved.
1010# $COPYRIGHT$
11- #
11+ #
1212# Additional copyrights may follow
13- #
13+ #
1414# $HEADER$
1515#
1616
7676my $patch_prog = " patch" ;
7777# Solaris "patch" doesn't understand unified diffs, and will cause
7878# autogen.pl to hang with a "File to patch:" prompt. Default to Linux
79- # "patch", but use "gpatch" on Solaris.
79+ # "patch", but use "gpatch" on Solaris.
8080if ($^O eq " solaris" ) {
8181 $patch_prog = " gpatch" ;
8282}
@@ -251,7 +251,7 @@ sub mca_process_component {
251251 $found_component -> {" name" } = $component ;
252252
253253 # Push the results onto the $mca_found hash array
254- push (@{$mca_found -> {$pname }-> {$framework }-> {" components" }},
254+ push (@{$mca_found -> {$pname }-> {$framework }-> {" components" }},
255255 $found_component );
256256
257257 # Is there an autogen.subdirs in here?
@@ -278,7 +278,7 @@ sub ignored {
278278 $unignore .= $_
279279 while (<UNIGNORE>);
280280 close (UNIGNORE);
281-
281+
282282 $ignored = 0
283283 if ($unignore =~ / ^$username $ /m ||
284284 $unignore =~ / ^$username \@ $hostname $ /m ||
@@ -311,13 +311,13 @@ sub mca_process_framework {
311311 # Look for component directories in this framework
312312 if (-d $dir ) {
313313 $mca_found -> {$pname }-> {$framework }-> {found } = 1;
314- opendir (DIR, $dir ) ||
314+ opendir (DIR, $dir ) ||
315315 my_die " Can't open $dir directory" ;
316316 foreach my $d (readdir (DIR)) {
317317 # Skip any non-directory, "base", or any dir that
318318 # begins with "."
319319 next
320- if (! -d " $dir /$d " || $d eq " base" ||
320+ if (! -d " $dir /$d " || $d eq " base" ||
321321 substr ($d , 0, 1) eq " ." );
322322
323323 # Skip any component that doesn't have a configure.m4
@@ -332,7 +332,7 @@ sub mca_process_framework {
332332
333333 verbose " --- Found $pname / $framework / $d component\n " ;
334334
335- # Skip if specifically excluded
335+ # Skip if specifically excluded
336336 if (exists ($exclude_list -> {$framework }) &&
337337 $exclude_list -> {$framework }[0] eq $d ) {
338338 verbose " => Excluded\n " ;
@@ -419,7 +419,7 @@ sub mca_process_project {
419419 # Look for framework directories in this project
420420 my $dir = " $topdir /$pdir /mca" ;
421421 if (-d $dir ) {
422- opendir (DIR, $dir ) ||
422+ opendir (DIR, $dir ) ||
423423 my_die " Can't open $dir directory" ;
424424 my @my_dirs = readdir (DIR);
425425 @my_dirs = sort (@my_dirs );
@@ -497,7 +497,7 @@ sub mca_run_global {
497497 # Does this project have a configure.m4 file?
498498 push (@includes , " $pdir /configure.m4" )
499499 if (exists ($mca_found -> {$p }-> {" configure.m4" }));
500-
500+
501501 # Print out project-level info
502502 my @mykeys = keys (%{$mca_found -> {$pname }});
503503 @mykeys = sort (@mykeys );
@@ -557,7 +557,7 @@ sub mca_run_global {
557557 }
558558 $m4_config_component_list =~ s / ^, // ;
559559 $no_config_component_list =~ s / ^, // ;
560-
560+
561561 $m4 .= " dnl Components in the $pname / $f framework
562562m4_define([mca_${pname} _${f} _m4_config_component_list], [$m4_config_component_list ])
563563m4_define([mca_${pname} _${f} _no_config_component_list], [$no_config_component_list ])
@@ -580,7 +580,7 @@ sub mca_run_global {
580580
581581sub mpiext_process_extension {
582582 my ($topdir , $ext_prefix , $extdir ) = @_ ;
583-
583+
584584 my $edir = " $topdir /$ext_prefix /$extdir " ;
585585 return
586586 if (! -d $edir );
@@ -606,13 +606,13 @@ sub mpiext_run_global {
606606 my $topdir = Cwd::cwd();
607607
608608 my $dir = " $topdir /$ext_prefix " ;
609- opendir (DIR, $dir ) ||
609+ opendir (DIR, $dir ) ||
610610 my_die " Can't open $dir directory" ;
611611 foreach my $d (readdir (DIR)) {
612612 # Skip any non-directory, "base", or any dir that begins with "."
613613 next
614614 if (! -d " $dir /$d " || $d eq " base" || substr ($d , 0, 1) eq " ." );
615-
615+
616616 # If this directory has a configure.m4, then it's an
617617 # extension.
618618 if (-f " $dir /$d /configure.m4" ) {
@@ -667,7 +667,7 @@ sub mpiext_run_global {
667667
668668sub mpicontrib_process {
669669 my ($topdir , $contrib_prefix , $contribdir ) = @_ ;
670-
670+
671671 my $cdir = " $topdir /$contrib_prefix /$contribdir " ;
672672 return
673673 if (! -d $cdir );
@@ -693,13 +693,13 @@ sub mpicontrib_run_global {
693693 my $topdir = Cwd::cwd();
694694
695695 my $dir = " $topdir /$contrib_prefix " ;
696- opendir (DIR, $dir ) ||
696+ opendir (DIR, $dir ) ||
697697 my_die " Can't open $dir directory" ;
698698 foreach my $d (readdir (DIR)) {
699699 # Skip any non-directory, "base", or any dir that begins with "."
700700 next
701701 if (! -d " $dir /$d " || $d eq " base" || substr ($d , 0, 1) eq " ." );
702-
702+
703703 # If this directory has a configure.m4, then it's an
704704 # extension.
705705 if (-f " $dir /$d /configure.m4" ) {
@@ -825,7 +825,7 @@ sub find_and_check {
825825 if ($pn > $mn ) {
826826 verbose " ==> ACCEPTED\n " ;
827827 return ;
828- }
828+ }
829829 # If the version is lower, we're done.
830830 elsif ($pn < $mn ||
831831 ($pn == $mn && $pa lt $ma )) {
@@ -941,13 +941,13 @@ sub patch_autotools_output {
941941 # Similar issue as above -- fix the case statements that handle the Sun
942942 # Fortran version strings.
943943 #
944- # Note: we have to use octal escapes to match '*Sun\ F*) and the
944+ # Note: we have to use octal escapes to match '*Sun\ F*) and the
945945 # four succeeding lines in the bourne shell switch statement.
946946 # \ = 134
947947 # ) = 051
948948 # * = 052
949949 #
950- # Below is essentially an upstream patch for Libtool which we want
950+ # Below is essentially an upstream patch for Libtool which we want
951951 # made available to Open MPI users running older versions of Libtool
952952
953953 foreach my $tag ((" " , " _FC" )) {
@@ -1090,7 +1090,7 @@ sub patch_autotools_output {
10901090$dnl_line
10911091dnl This file is automatically created by autogen.pl; it should not
10921092dnl be edited by hand!!
1093- dnl
1093+ dnl
10941094dnl Generated by $username at " . localtime (time ) . "
10951095dnl on $full_hostname .
10961096$dnl_line \n\n " ;
@@ -1293,7 +1293,7 @@ sub patch_autotools_output {
12931293# Remove the old m4 file and write the new one
12941294verbose " ==> Writing m4 file with autogen.pl results\n " ;
12951295unlink ($m4_output_file );
1296- open (M4, " >$m4_output_file " ) ||
1296+ open (M4, " >$m4_output_file " ) ||
12971297 my_die " Can't open $m4_output_file " ;
12981298print M4 $m4 ;
12991299close (M4);
0 commit comments