[mpich2-commits] r4189 - in mpich2/trunk: doc/pmi maint src/binding/f77 src/binding/f90

[balaji at mcs.anl.gov]

Author: balaji
Date: 2009-03-25 18:48:38 -0500 (Wed, 25 Mar 2009)
New Revision: 4189

Modified:
   mpich2/trunk/doc/pmi/manextract
   mpich2/trunk/maint/extractparms
   mpich2/trunk/src/binding/f77/buildiface
   mpich2/trunk/src/binding/f90/buildiface
Log:
Added "use warnings;" instead of calling "perl -w" directly, as that
seems to be breaking when usedin conjunction with /usr/bin/env.

Reviewed by goodell.


Modified: mpich2/trunk/doc/pmi/manextract
===================================================================
--- mpich2/trunk/doc/pmi/manextract	2009-03-25 18:50:21 UTC (rev 4188)
+++ mpich2/trunk/doc/pmi/manextract	2009-03-25 23:48:38 UTC (rev 4189)
@@ -1,4 +1,4 @@
-#! /usr/bin/env perl -w
+#! /usr/bin/env perl
 #
 # This script extracts the text blocks from a source file and creates a
 # simple text block out of them.  
@@ -7,6 +7,9 @@
 # manual can contain the comments from the example source files adi3.c and
 # adi3.h.  
 #
+
+use warnings;
+
 $debug = 0;
 while (<>) {
     if (/\/\*T([^ ]*)[ ]*\n/) {

Modified: mpich2/trunk/maint/extractparms
===================================================================
--- mpich2/trunk/maint/extractparms	2009-03-25 18:50:21 UTC (rev 4188)
+++ mpich2/trunk/maint/extractparms	2009-03-25 23:48:38 UTC (rev 4189)
@@ -1,7 +1,10 @@
-#! /usr/bin/env perl -w
+#! /usr/bin/env perl
 # (Tested with -w; 2/23/07)
 # 
 # Find the parse.sub routine.
+
+use warnings;
+
 my $maintdir = "maint";
 my $rootdir  = ".";
 if ( ! -s "maint/parse.sub" ) {

Modified: mpich2/trunk/src/binding/f77/buildiface
===================================================================
--- mpich2/trunk/src/binding/f77/buildiface	2009-03-25 18:50:21 UTC (rev 4188)
+++ mpich2/trunk/src/binding/f77/buildiface	2009-03-25 23:48:38 UTC (rev 4189)
@@ -1,4 +1,4 @@
-#! /usr/bin/env perl -w
+#! /usr/bin/env perl
 #
 # This file builds candidate interface files from the descriptions in 
 # mpi.h
@@ -15,6 +15,9 @@
 #    MPI_Fint etc. as appropriate
 #    
 #
+
+use warnings;
+
 # Setup global variables
 %CtoFName = ();
 @ExtraRoutines = ();

Modified: mpich2/trunk/src/binding/f90/buildiface
===================================================================
--- mpich2/trunk/src/binding/f90/buildiface	2009-03-25 18:50:21 UTC (rev 4188)
+++ mpich2/trunk/src/binding/f90/buildiface	2009-03-25 23:48:38 UTC (rev 4189)
@@ -1,4 +1,7 @@
-#! /usr/bin/env perl -w
+#! /usr/bin/env perl
+
+use warnings;
+
 # binding.sub provides the routines for reading the prototype file
 # and extracting the function definitions.
 require "binding.sub";