diff options
Diffstat (limited to 'SBO-Lib/lib/SBO/App')
| -rw-r--r-- | SBO-Lib/lib/SBO/App/Remove.pm | 4 | ||||
| -rw-r--r-- | SBO-Lib/lib/SBO/App/Snap.pm | 4 |
2 files changed, 4 insertions, 4 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 { 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 { |