diff options
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 { |