proxmox-mirrors/qemu-server
1
0
Fork 0
mirror of https://git.proxmox.com/git/qemu-server synced 2025-06-27 17:23:51 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

avoid cyclic reference

Browse Source 
this otherwise leaks memory

Signed-off-by: Wolfgang Bumiller <w.bumiller@proxmox.com>
This commit is contained in:
Wolfgang Bumiller 2019-11-19 09:26:44 +01:00
parent 4865715861
commit e5a66e48ba
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
PVE/QemuServer.pm
View File

@ -4907,10 +4907,12 @@ sub vmconfig_hotplug_pending {
} }
} }
my $apply_pending_cloudinit; my ($apply_pending_cloudinit, $apply_pending_cloudinit_done);
$apply_pending_cloudinit = sub { $apply_pending_cloudinit = sub {
return if $apply_pending_cloudinit_done; # once is enough
$apply_pending_cloudinit_done = 1; # once is enough
my ($key, $value) = @_; my ($key, $value) = @_;
$apply_pending_cloudinit = sub {}; # once is enough
my @cloudinit_opts = keys %$confdesc_cloudinit; my @cloudinit_opts = keys %$confdesc_cloudinit;
foreach my $opt (keys %{$conf->{pending}}) { foreach my $opt (keys %{$conf->{pending}}) {