[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