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