improve 'pending changes' message for clone

$newconf->{pending} is a reference to an empty hash, which is not falsy,
thus we always printed the warning

so check if there are actual values there and if yes,
give the names of the properties for which pending changes are found

Signed-off-by: Dominik Csapak <d.csapak@proxmox.com>
This commit is contained in:
Dominik Csapak 2018-09-12 10:53:52 +02:00 committed by Thomas Lamprecht
parent 91bba27165
commit c725dd5f92

View File

@ -2785,8 +2785,9 @@ __PACKAGE__->register_method({
delete $newconf->{lock};
# do not write pending changes
if ($newconf->{pending}) {
warn "found pending changes, discarding for clone\n";
if (my @changes = keys %{$newconf->{pending}}) {
my $pending = join(',', @changes);
warn "found pending changes for '$pending', discarding for clone\n";
delete $newconf->{pending};
}