[Bps-public-commit] r12154 - Shipwright/trunk/lib/Shipwright

[falcone at bestpractical.com]

Author: falcone
Date: Thu May  8 10:27:30 2008
New Revision: 12154

Modified:
   Shipwright/trunk/lib/Shipwright/Script.pm

Log:
* quiet a warning when you run shipwright without any args

Modified: Shipwright/trunk/lib/Shipwright/Script.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script.pm	Thu May  8 10:27:30 2008
@@ -16,7 +16,7 @@
 
 sub prepare {
     my $self = shift;
-    if ( $ARGV[0] =~ /--?h(elp)?/i ) {
+    if ( $ARGV[0] && $ARGV[0] =~ /--?h(elp)?/i ) {
         $ARGV[0] = 'help';
     }
     return $self->SUPER::prepare(@_);