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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Feb  3 22:19:19 2009
New Revision: 18157

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

Log:
version cmd for Shipwright

Modified: Shipwright/trunk/lib/Shipwright/Script.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Script.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Script.pm	Tue Feb  3 22:19:19 2009
@@ -42,6 +42,10 @@
     if ( $ARGV[0] =~ /--?h(elp)?/i ) {
         $ARGV[0] = 'help';
     }
+    elsif ( $ARGV[0] =~ /^(-v|--version|version)$/ ) {
+        print "This is Shipwright, version $Shipwright::VERSION\n";
+        exit 0;
+    }
 
     my $action = $ARGV[0];