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/Snap.pm | |
| parent | 6562db4c47319f40ec0d045c725f9766a56e7e5a (diff) | |
| download | sbotools2-b38ab95e21d572cc0798fee0505c009a6b7587b6.tar.xz | |
Fail on bad arguments for remaining commands
Diffstat (limited to 'SBO-Lib/lib/SBO/App/Snap.pm')
| -rw-r--r-- | SBO-Lib/lib/SBO/App/Snap.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SBO-Lib/lib/SBO/App/Snap.pm b/SBO-Lib/lib/SBO/App/Snap.pm index 64487d7..d98bbc1 100644 --- a/SBO-Lib/lib/SBO/App/Snap.pm +++ b/SBO-Lib/lib/SBO/App/Snap.pm @@ -26,13 +26,13 @@ sub _parse_opts { my ($help, $vers); - GetOptionsFromArray( + my $res = GetOptionsFromArray( \@ARGS, 'help|h' => \$help, 'version|v' => \$vers, ); - return { help => $help, vers => $vers, args => \@ARGS, }; + return ({ help => $help, vers => $vers, args => \@ARGS, }, $res); } sub show_usage { |