From 7e25caf7c353f034626a6d9bb33ba47e8d83880f Mon Sep 17 00:00:00 2001
From: Dietmar Maurer <dietmar@proxmox.com>
Date: Sun, 13 Nov 2016 09:24:31 +0100
Subject: [PATCH] API2Client: avoid perl warning

---
 PVE/API2Client.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/PVE/API2Client.pm b/PVE/API2Client.pm
index fdd1a148..e58e9a21 100755
--- a/PVE/API2Client.pm
+++ b/PVE/API2Client.pm
@@ -139,7 +139,7 @@ sub call {
 	    return if $ct !~ m|application/json|;
 	    my $res = from_json($response->decoded_content, {utf8 => 1, allow_nonref => 1});
 	    if (my $errors = $res->{errors}) {
-		foreach my $key (keys $errors) {
+		foreach my $key (keys %$errors) {
 		    my $m = $errors->{$key};
 		    chomp($m);
 		    $m =~s/\n/ -- /g;