avoid list context for volume_size_info calls

With the recent pve-storage commit d70d814 ("api: fix get content call response
type for RBD/ZFS/iSCSI volumes"), the volume_size_info call for RBD in
list context is much slower than before (from a quick test, about twice as long
without snapshots, even longer with snapshots and untested, but when using an
external cluster with image not having the fast-diff feature, it should be worse
still) and thus increases the likelihood to run into timeouts here.

None of the callers here actually need the more expensive call, so just
avoid calling in list context.

Signed-off-by: Fiona Ebner <f.ebner@proxmox.com>
This commit is contained in:
Fiona Ebner 2023-03-21 10:17:58 +01:00 committed by Thomas Lamprecht
parent c3a05d441c
commit efa3aa2496
2 changed files with 7 additions and 4 deletions

View File

@ -8077,7 +8077,7 @@ sub clone_disk {
} else {
clone_disk_check_io_uring($drive, $storecfg, $src_storeid, $storeid, $use_drive_mirror);
($size) = PVE::Storage::volume_size_info($storecfg, $drive->{file}, 10);
$size = PVE::Storage::volume_size_info($storecfg, $drive->{file}, 10);
}
$newvolid = PVE::Storage::vdisk_alloc(
$storecfg, $storeid, $newvmid, $dst_format, $name, ($size/1024)
@ -8129,7 +8129,7 @@ sub clone_disk {
}
no_data_clone:
my ($size) = eval { PVE::Storage::volume_size_info($storecfg, $newvolid, 10) };
my $size = eval { PVE::Storage::volume_size_info($storecfg, $newvolid, 10) };
my $disk = dclone($drive);
delete $disk->{format};
@ -8208,7 +8208,7 @@ sub create_efidisk($$$$$$$) {
PVE::Storage::activate_volumes($storecfg, [$volid]);
qemu_img_convert($ovmf_vars, $volid, $vars_size_b, undef, 0);
my ($size) = PVE::Storage::volume_size_info($storecfg, $volid, 3);
my $size = PVE::Storage::volume_size_info($storecfg, $volid, 3);
return ($volid, $size/1024);
}

View File

@ -119,9 +119,12 @@ sub prepare {
}
next if !$path;
my ($size, $format) = eval { PVE::Storage::volume_size_info($self->{storecfg}, $volid, 5) };
my $size = eval { PVE::Storage::volume_size_info($self->{storecfg}, $volid, 5) };
die "no such volume '$volid'\n" if $@;
my $scfg = PVE::Storage::storage_config($self->{storecfg}, $storeid);
my $format = PVE::QemuServer::qemu_img_format($scfg, $volname);
my $diskinfo = {
path => $path,
volid => $volid,