svn commit: r1101511 - /incubator/vcl/trunk/managementnode/bin/health_check.pl

[fapeeler]

Author: fapeeler
Date: Tue May 10 15:41:49 2011
New Revision: 1101511

URL: http://svn.apache.org/viewvc?rev=1101511&view=rev
Log:
VCL-468

renamed help to _help

Modified:
    incubator/vcl/trunk/managementnode/bin/health_check.pl

Modified: incubator/vcl/trunk/managementnode/bin/health_check.pl
URL: 
http://svn.apache.org/viewvc/incubator/vcl/trunk/managementnode/bin/health_check.pl?rev=1101511&r1=1101510&r2=1101511&view=diff
==============================================================================
--- incubator/vcl/trunk/managementnode/bin/health_check.pl (original)
+++ incubator/vcl/trunk/managementnode/bin/health_check.pl Tue May 10 15:41:49 
2011
@@ -59,7 +59,7 @@ use Getopt::Long;
 
 #------- Subroutine declarations -------
 sub main();
-sub help();
+sub _help();
 sub print_usage(); 
 
 #----------GLOBALS--------------
@@ -81,13 +81,13 @@ if($STAGE){
 
        unless($STAGE =~ /available|all/){ 
                print "\nInvalid powerdown option\n\n";
-               help();
+               _help();
                exit;
        }
 
 }
 if($HELP){
-       help();
+       _help();
        exit;
 }
 ##############################################################################
@@ -137,11 +137,11 @@ sub print_usage() {
 
        print "$text\n";
 
-} ## end sub help
+} ## end sub _help
 
 #/////////////////////////////////////////////////////////////////////////////
 
-=head2 help
+=head2 _help
 
  Parameters  : 
  Returns     : 
@@ -149,7 +149,7 @@ sub print_usage() {
 
 =cut
 
-sub help() {
+sub _help() {
        my $message = <<"END";
 --------------------------------------------
 
@@ -160,7 +160,7 @@ END
        print $message;
        print_usage();
        exit;
-} ## end sub help
+} ## end sub _help
 #/////////////////////////////////////////////////////////////////////////////
 
 1;