[Bps-public-commit] r10138 - bpsbuilder/BPB/lib/BPB

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Dec 27 02:05:59 2007
New Revision: 10138

Modified:
   bpsbuilder/BPB/lib/BPB/Script.pm

Log:
--help or -h can be used too

Modified: bpsbuilder/BPB/lib/BPB/Script.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Script.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Script.pm	Thu Dec 27 02:05:59 2007
@@ -8,6 +8,14 @@
     return ( create => "initialize", );
 }
 
+sub prepare {
+    my $self = shift;
+    if ( $ARGV[0] =~ /--?h(elp)?/i ) {
+        $ARGV[0] = 'help';
+    }
+    return $self->SUPER::prepare(@_);
+}
+
 1;
 
 __END__