allow to pass single '-' as argument.
authorDietmar Maurer <dietmar@proxmox.com>
Wed, 19 Oct 2011 04:22:30 +0000 (06:22 +0200)
committerDietmar Maurer <dietmar@proxmox.com>
Wed, 19 Oct 2011 04:22:30 +0000 (06:22 +0200)
data/PVE/RESTHandler.pm

index 7e0352c..e68db35 100644 (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};