tiago/qemu-server
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re-tidy perl source code with correct perltidy version

Browse source 
had an older version installed on a dev VM that still had some issues
with not honoring the mft option correctly, resulting in multiple
params perl line even though the params got wrapped already.

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
This commit is contained in:
Thomas Lamprecht 2025-07-08 08:12:15 +02:00
parent e72684d6c3
commit 343e05f0ba
2 changed files with 29 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

32
src/PVE/QemuServer/Drive.pm
View file

@ -405,21 +405,37 @@ $add_throttle_desc->(
# burst lengths
$add_throttle_desc->('bps_max_length', 'integer', 'length of I/O bursts', 'seconds', 'seconds', 1);
$add_throttle_desc->(
'bps_rd_max_length', 'integer', 'length of read I/O bursts',
'seconds', 'seconds', 1,
'bps_rd_max_length',
'integer',
'length of read I/O bursts',
'seconds',
'seconds',
1,
);
$add_throttle_desc->(
'bps_wr_max_length', 'integer', 'length of write I/O bursts',
'seconds', 'seconds', 1,
'bps_wr_max_length',
'integer',
'length of write I/O bursts',
'seconds',
'seconds',
1,
);
$add_throttle_desc->('iops_max_length', 'integer', 'length of I/O bursts', 'seconds', 'seconds', 1);
$add_throttle_desc->(
'iops_rd_max_length', 'integer', 'length of read I/O bursts',
'seconds', 'seconds', 1,
'iops_rd_max_length',
'integer',
'length of read I/O bursts',
'seconds',
'seconds',
1,
);
$add_throttle_desc->(
'iops_wr_max_length', 'integer', 'length of write I/O bursts',
'seconds', 'seconds', 1,
'iops_wr_max_length',
'integer',
'length of write I/O bursts',
'seconds',
'seconds',
1,
);
# legacy support

8
src/PVE/VZDump/QemuServer.pm
View file

@ -405,10 +405,12 @@ my $query_backup_status_loop = sub {
my $target_h = render_bytes($target, 1);
my $transferred_h = render_bytes($transferred, 1);
my $statusline =
sprintf("%3d%% ($transferred_h of $target_h) in %s"
my $statusline = sprintf(
"%3d%% ($transferred_h of $target_h) in %s"
. ", read: $mbps_read, write: $mbps_write",
$percent, render_duration($duration));
$percent,
render_duration($duration),
);
my $res = $status->{status} || 'unknown';
if ($res ne 'active') {