[Bps-public-commit] r12151 - Shipwright/trunk/share/bin

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu May  8 06:55:17 2008
New Revision: 12151

Modified:
   Shipwright/trunk/share/bin/shipwright-utility

Log:
die when given unknown options for shipwright-utility too

Modified: Shipwright/trunk/share/bin/shipwright-utility
==============================================================================
--- Shipwright/trunk/share/bin/shipwright-utility	(original)
+++ Shipwright/trunk/share/bin/shipwright-utility	Thu May  8 06:55:17 2008
@@ -6,8 +6,14 @@
 use YAML::Syck;
 
 my %args;
-GetOptions( \%args, 'update-order', 'keep-requires=s', 'keep-recommends=s',
-    'keep-build-requires=s', 'for-dists=s', 'help' );
+
+die "unknown option"
+  unless GetOptions(
+          \%args,                  'update-order',
+          'keep-requires=s',       'keep-recommends=s',
+          'keep-build-requires=s', 'for-dists=s',
+          'help',
+  );
 
 my $USAGE = <<'END'
 run: ./bin/shipwright-utility --update-order