these can just as well be `die` statements right there, there is no complicated cleanup that would warrant a goto statement..
Signed-off-by: Fabian Grünbichler <f.gruenbich...@proxmox.com> --- src/PVE/Storage/Plugin.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/PVE/Storage/Plugin.pm b/src/PVE/Storage/Plugin.pm index b5a54c1..f8dc9a2 100644 --- a/src/PVE/Storage/Plugin.pm +++ b/src/PVE/Storage/Plugin.pm @@ -1586,13 +1586,14 @@ sub read_common_header($) { # Export a volume into a file handle as a stream of desired format. sub volume_export { my ($class, $scfg, $storeid, $fh, $volname, $format, $snapshot, $base_snapshot, $with_snapshots) = @_; + my $unsupported = "volume export format $format not available for $class\n"; if ($scfg->{path} && !defined($snapshot) && !defined($base_snapshot)) { my $file = $class->path($scfg, $volname, $storeid) - or goto unsupported; + or die $unsupported; my ($size, $file_format) = file_size_info($file); if ($format eq 'raw+size') { - goto unsupported if $with_snapshots || $file_format eq 'subvol'; + die $unsupported if $with_snapshots || $file_format eq 'subvol'; write_common_header($fh, $size); if ($file_format eq 'raw') { run_command(['dd', "if=$file", "bs=4k", "status=progress"], output => '>&'.fileno($fh)); @@ -1603,20 +1604,19 @@ sub volume_export { return; } elsif ($format =~ /^(qcow2|vmdk)\+size$/) { my $data_format = $1; - goto unsupported if !$with_snapshots || $file_format ne $data_format; + die $unsupported if !$with_snapshots || $file_format ne $data_format; write_common_header($fh, $size); run_command(['dd', "if=$file", "bs=4k", "status=progress"], output => '>&'.fileno($fh)); return; } elsif ($format eq 'tar+size') { - goto unsupported if $file_format ne 'subvol'; + die $unsupported if $file_format ne 'subvol'; write_common_header($fh, $size); run_command(['tar', @COMMON_TAR_FLAGS, '-cf', '-', '-C', $file, '.'], output => '>&'.fileno($fh)); return; } } - unsupported: - die "volume export format $format not available for $class"; + die $unsupported; } sub volume_export_formats { -- 2.39.2 _______________________________________________ pve-devel mailing list pve-devel@lists.proxmox.com https://lists.proxmox.com/cgi-bin/mailman/listinfo/pve-devel