allow to pass single '-' as argument.

[pve-common.git] / data / PVE / RESTHandler.pm

diff --git a/data/PVE/RESTHandler.pm b/data/PVE/RESTHandler.pm
index 7e0352c9c4fd4a3f8408617c076df22a7ce588a9..e68db35571798028cd0770c53014be9af6af31ab 100644 (file)
--- a/data/PVE/RESTHandler.pm
+++ b/data/PVE/RESTHandler.pm
@@ -486,7 +486,7 @@ sub cli_handler {
     if ($arg_param) {
        if (ref($arg_param)) {
            foreach my $p (@$arg_param) {
     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};
            }
        } else {
            my $pd = $info->{parameters}->{properties}->{$arg_param};