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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu May  8 02:46:05 2008
New Revision: 12148

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

Log:
die when given unknown options

Modified: Shipwright/trunk/share/bin/shipwright-builder
==============================================================================
--- Shipwright/trunk/share/bin/shipwright-builder	(original)
+++ Shipwright/trunk/share/bin/shipwright-builder	Thu May  8 02:46:05 2008
@@ -14,11 +14,13 @@
 my $build_base = getcwd;
 
 my %args;
-GetOptions(
+
+die "unknown option"
+  unless GetOptions(
     \%args,    'install-base=s', 'perl=s',    'skip=s',
     'flags=s', 'skip-test',      'only-test', 'force',
     'clean',   'name=s',         'help',
-);
+  );
 
 my $USAGE = <<'END'
 run: ./bin/shipwright-builder