allow to pass single '-' as argument.

This commit is contained in:
Dietmar Maurer 2011-10-19 06:22:30 +02:00
parent 776fbfa8bd
commit b749019d13

View File

@ -486,7 +486,7 @@ sub cli_handler {
if ($arg_param) {
if (ref($arg_param)) {
foreach my $p (@$arg_param) {
$param->{$p} = shift @$args if $args->[0] && $args->[0] !~ m/^-/;
$param->{$p} = shift @$args if $args->[0] && $args->[0] !~ m/^-\S/;
}
} else {
my $pd = $info->{parameters}->{properties}->{$arg_param};