diff options
| author | Slack Coder <slackcoder@server.ky> | 2025-02-20 14:57:16 -0500 |
|---|---|---|
| committer | Slack Coder <slackcoder@server.ky> | 2025-02-20 15:11:39 -0500 |
| commit | b38ab95e21d572cc0798fee0505c009a6b7587b6 (patch) | |
| tree | c5c880ce69f235764bde0e9f4dbef6e034c89e87 /SBO-Lib/lib/SBO/App/Remove.pm | |
| parent | 6562db4c47319f40ec0d045c725f9766a56e7e5a (diff) | |
| download | sbotools2-b38ab95e21d572cc0798fee0505c009a6b7587b6.tar.xz | |
Fail on bad arguments for remaining commands
Diffstat (limited to 'SBO-Lib/lib/SBO/App/Remove.pm')
| -rw-r--r-- | SBO-Lib/lib/SBO/App/Remove.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SBO-Lib/lib/SBO/App/Remove.pm b/SBO-Lib/lib/SBO/App/Remove.pm index 7b0d27f..3128627 100644 --- a/SBO-Lib/lib/SBO/App/Remove.pm +++ b/SBO-Lib/lib/SBO/App/Remove.pm @@ -23,7 +23,7 @@ sub _parse_opts { my ($help, $vers, $non_int, $alwaysask); - GetOptionsFromArray( + my $res = GetOptionsFromArray( \@ARGS, 'help|h' => \$help, 'version|v' => \$vers, @@ -31,7 +31,7 @@ sub _parse_opts { 'alwaysask|a' => \$alwaysask, ); - return { help => $help, vers => $vers, non_int => $non_int, alwaysask => $alwaysask, args => \@ARGS, }; + return ({ help => $help, vers => $vers, non_int => $non_int, alwaysask => $alwaysask, args => \@ARGS, }, $res); } sub run { |