[Cluster-devel] [PATCH] Clean up top level configure part 1

[Fabio Massimo Di Nitto]

Hi guys,

the patch in attachment is purely cosmetic. I switched the top level configure
to use perl -w rather than just perl and spotted a bunch of warnings.

This patch:

- switches permanently to perl -w
- fixes all the warnings in the script.

Part1 because I plan to re-rewrite the top level configure from scratch by using
the only known thing in every system (that being /bin/sh) and make path to perl
configurable (not all system use /usr/bin/perl).
I also plan to kill the need of make/defines.mk.input and create make/define.mk
directly.

use Usual::ACK::Apply::disclaimer

Cheers
Fabio

-- 
I'm going to make him an offer he can't refuse.

diff -Naurd cluster-orig/configure cluster/configure
--- cluster-orig/configure      2007-09-19 22:32:14.000000000 +0200
+++ cluster/configure   2007-09-21 04:32:56.000000000 +0200
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -w
 
 ###############################################################################
 ###############################################################################
@@ -142,7 +142,7 @@
 # Check for the --help flag
 if ($help || !$err) {
   $_ = $0;
-  s/.*\.\/(.*)/\1/;
+  s/.*\.\/(.*)/$1/;
   print "Usage: $_ [flags]\n";
   print "--help\t\tPrints this usage information\n\n";
   print "install flags:\n";
@@ -219,6 +219,9 @@
 if ($extracflags) {
   $cflags="${cflags} ${extracflags}";
 }
+if (!$ldflags) {
+  $ldflags="";
+}
 if ($extraldflags) {
   $ldflags="${ldflags} ${extraldflags}";
 }
@@ -335,6 +338,42 @@
 if (!$sharedir) {
   $sharedir="${prefix}/share/cluster";
 }
+if (!$fence_agents) {
+  $fence_agents="all";
+}
+if (!$without_ccs) {
+  $without_ccs="";
+}
+if (!$without_cman) {
+  $without_cman="";
+}
+if (!$without_dlm) {
+  $without_dlm="";
+}
+if (!$without_group) {
+  $without_group="";
+}
+if (!$without_fence) {
+  $without_fence="";
+}
+if (!$without_gfs) {
+  $without_gfs="";
+}
+if (!$without_gfs2) {
+  $without_gfs2="";
+}
+if (!$without_gnbd) {
+  $without_gnbd="";
+}       
+if (!$without_rgmanager) {
+  $without_rgmanager="";
+}
+if (!$release_major) {
+  $release_major="";
+}
+if (!$release_minor) {
+  $release_minor="";
+}
 
 @args = "find fence/agents -mindepth 2 -maxdepth 2 -name Makefile -printf 
'%h'";
 open (IFILE, "@args |");
@@ -345,12 +384,12 @@
 }
 close IFILE;
 
-if ($fence_agents eq help) {
+if ($fence_agents eq "help") {
   print "Available fence agents:\n$all_fence\n";
   exit 0;
 }
 
-if ((!$fence_agents) || ($fence_agents eq all)) {
+if ((!$fence_agents) || ($fence_agents eq "all")) {
   print "\nThe following fence agents will be build on this 
system:\n$all_fence\n";
   print "\nNOTE: xvm will build only if --enable_xen has been specified\n\n";
   $fence_agents = $all_fence