diff options
Diffstat (limited to 'sboclean')
-rwxr-xr-x | sboclean | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -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 } |