Bail out on bad arguments

1 files changed, 5 insertions, 2 deletions

diff --git a/sboclean b/sboclean
index 980de44..26594e8 100755
--- a/sboclean
+++ b/sboclean
@@ -42,13 +42,16 @@ EOF
 
 my ($help, $vers, $dist, $work, $interactive);
 
-GetOptions(
+if (! GetOptions(
 	'help|h'            => \$help,
 	'version|v'         => \$vers,
 	'dist|clean-dist|d' => \$dist,
 	'work|clean-work|w' => \$work,
 	'interactive|i'     => \$interactive,
-);
+)) {
+  show_usage();
+  exit 1;
+}
 
 if ($help) { show_usage(); exit 0 }
 if ($vers) { show_version(); exit 0 }