[Bps-public-commit] Shipwright branch, master, updated. 9a99efa9b6963f3028236515eff353a9c6ecce22

? sunnavy sunnavy at bestpractical.com
Thu Jun 3 03:27:03 EDT 2010


The branch, master has been updated
       via  9a99efa9b6963f3028236515eff353a9c6ecce22 (commit)
      from  f6313835d638c6aaa941933be3b003366e76cc57 (commit)

Summary of changes:
 share/bin/shipwright-filter  |    1 +
 share/bin/shipwright-utility |    3 ++-
 share/etc/shipwright-utility |    1 +
 3 files changed, 4 insertions(+), 1 deletions(-)

- Log -----------------------------------------------------------------
commit 9a99efa9b6963f3028236515eff353a9c6ecce22
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Thu Jun 3 15:27:46 2010 +0800

    default to show usage for shipwright-utility and shipwright-filter

diff --git a/share/bin/shipwright-filter b/share/bin/shipwright-filter
index e22dade..75dcfac 100755
--- a/share/bin/shipwright-filter
+++ b/share/bin/shipwright-filter
@@ -9,6 +9,7 @@ use File::Spec::Functions qw/catfile catdir splitdir/;
 use lib 'inc';
 
 my %args;
+ at ARGV = '--help' unless @ARGV;
 
 confess "unknown option"
   unless GetOptions( \%args, 'remove-pod', 'squeeze', 'verbose', 'help' );
diff --git a/share/bin/shipwright-utility b/share/bin/shipwright-utility
index df48899..0a3f773 100755
--- a/share/bin/shipwright-utility
+++ b/share/bin/shipwright-utility
@@ -8,6 +8,7 @@ use List::MoreUtils qw/uniq firstidx/;
 use Carp;
 
 my %args;
+ at ARGV = '--help' unless @ARGV;
 
 confess "unknown option"
   unless GetOptions( \%args, 'update-order', 'keep-requires=s',
@@ -16,7 +17,7 @@ confess "unknown option"
 	);
 
 my $USAGE = <<'END'
-run: ./bin/shipwright-utility --update-order
+run: ./bin/shipwright-utility
 
 options: 
 
diff --git a/share/etc/shipwright-utility b/share/etc/shipwright-utility
index cb2f2e0..08ace21 100755
--- a/share/etc/shipwright-utility
+++ b/share/etc/shipwright-utility
@@ -7,6 +7,7 @@ use File::Spec::Functions qw/catfile catdir splitdir/;
 use Cwd;
 use Carp;
 use File::Find;
+ at ARGV = '--help' unless @ARGV;
 my %args;
 GetOptions( \%args, 'install-links=s', 'switch:s', 'help' );
 

-----------------------------------------------------------------------



More information about the Bps-public-commit mailing list