Using
    pvesh create /nodes/pve701/apt/repositories --path
    "/etc/apt/sources.list" --index 0 --enabled 1
reliably leads to
    error: invalid type: string "0", expected usize

Coerce to int to avoid this. I was not able to trigger the issue with
the "enabled" option being a string here (in PMG I was), but be on the
safe side and coerce there too. Otherwise it might get triggered in
the future by a completely unrelated change further up in the API call
handling.

Signed-off-by: Fabian Ebner <f.eb...@proxmox.com>
---

Changes from v2:
    * work around current perlmod limitation, but the real fault is
      clearly with Perl's type system ;)

 PVE/API2/APT.pm | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/PVE/API2/APT.pm b/PVE/API2/APT.pm
index bd60db33..743c3522 100644
--- a/PVE/API2/APT.pm
+++ b/PVE/API2/APT.pm
@@ -750,13 +750,18 @@ __PACKAGE__->register_method({
     code => sub {
        my ($param) = @_;
 
-       my $options = {
-           enabled => $param->{enabled},
-       };
+       my $enabled = $param->{enabled};
+       $enabled = int($enabled) if defined($enabled);
+
+       my $options = {};
+
+       # NOTE avoid { enabled => $enabled }, when it's undef, because current 
(0.5.2) perlmod
+       # can get confused in some cases and fail to recognize undef correctly.
+       $options->{enabled} = $enabled if defined($enabled);
 
        PVE::RS::APT::Repositories::change_repository(
            $param->{path},
-           $param->{index},
+           int($param->{index}),
            $options,
            $param->{digest}
        );
-- 
2.30.2



_______________________________________________
pve-devel mailing list
pve-devel@lists.proxmox.com
https://lists.proxmox.com/cgi-bin/mailman/listinfo/pve-devel

Reply via email to