Bail out on bad arguments

1 files changed, 5 insertions, 2 deletions

diff --git a/sboupgrade b/sboupgrade
index 81a9a3f..c1363c2 100755
--- a/sboupgrade
+++ b/sboupgrade
@@ -55,7 +55,7 @@ my $distclean = $config{DISTCLEAN};
 my $jobs = $config{JOBS};
 my ($help, $vers, $force, $no_install, $non_int, $force_reqs, $all);
 
-GetOptions(
+if (! GetOptions(
 	'help|h'            => \$help,
 	'version|v'         => \$vers,
 	'noclean|c=s'       => \$noclean,
@@ -66,7 +66,10 @@ GetOptions(
 	'nointeractive|r'   => \$non_int,
 	'force-reqs|z'      => \$force_reqs,
 	'all'               => \$all,
-);
+)) {
+  show_usage();
+  exit 1;
+}
 
 if ($help) { show_usage(); exit 0 }
 if ($vers) { show_version(); exit 0 }