[PATCH pve-storage v1 02/54] plugin, common: remove superfluous use of =pod command paragraph

Max R. Carrara
2026-04-22T11:14:31Z

Because a POD block may be started using any POD command paragraph
[0], using =pod here is not necessary. Therefore, remove these
occurrences.

In other words, =head1 and =head3 (for example) already begin a POD
block, so explicitly opening one with =pod is not needed.

This has the benefit of making the docstrings take up a little less
space overall.

[0]: https://perldoc.perl.org/perlpodspec#Pod-Commands

Signed-off-by: Max R. Carrara <m.carrara@proxmox.com>
---
src/PVE/Storage/Common.pm | 18 ------------------
src/PVE/Storage/Plugin.pm | 6 ------
2 files changed, 24 deletions(-)

diff --git a/src/PVE/Storage/Common.pm b/src/PVE/Storage/Common.pm
index 3932aeeb..c5f69694 100644
--- a/src/PVE/Storage/Common.pm
+++ b/src/PVE/Storage/Common.pm
@@ -11,8 +11,6 @@ use constant {
FALLOC_FL_PUNCH_HOLE => 0x02, # see linux/falloc.h
};

-=pod
-
=head1 NAME

PVE::Storage::Common - Shared functions and utilities for storage plugins and storage operations
@@ -74,14 +72,10 @@ PVE::JSONSchema::register_standard_option(
},
);

-=pod
-
=head1 FUNCTIONS

=cut

-=pod
-
=head3 align_size_up

$aligned_size = align_size_up($size, $granularity)
@@ -102,8 +96,6 @@ sub align_size_up : prototype($$) {
return $aligned_size;
}

-=pod
-
=head3 deallocate

deallocate($file_handle, $offset, $length)
@@ -147,8 +139,6 @@ my sub run_qemu_img_json {
return $json;
}

-=pod
-
=head3 qemu_img_create

qemu_img_create($fmt, $size, $path, $options)
@@ -172,8 +162,6 @@ sub qemu_img_create {
run_command($cmd, errmsg => "unable to create image");
}

-=pod
-
=head3 qemu_img_create_qcow2_backed

qemu_img_create_qcow2_backed($path, $backing_path, $backing_format, $options)
@@ -209,8 +197,6 @@ sub qemu_img_create_qcow2_backed {
run_command($cmd, errmsg => "unable to create image");
}

-=pod
-
=head3 qemu_img_info

qemu_img_info($filename, $file_format, $timeout, $follow_backing_files)
@@ -231,8 +217,6 @@ sub qemu_img_info {
return run_qemu_img_json($cmd, $timeout);
}

-=pod
-
=head3 qemu_img_measure

qemu_img_measure($size, $fmt, $timeout, $options)
@@ -255,8 +239,6 @@ sub qemu_img_measure {
return run_qemu_img_json($cmd, $timeout);
}

-=pod
-
=head3 qemu_img_resize

qemu_img_resize($path, $format, $size, $preallocation, $timeout)
diff --git a/src/PVE/Storage/Plugin.pm b/src/PVE/Storage/Plugin.pm
index afd31414..84ac412a 100644
--- a/src/PVE/Storage/Plugin.pm
+++ b/src/PVE/Storage/Plugin.pm
@@ -2311,8 +2311,6 @@ sub rename_volume {
return "${storeid}:${base}${target_vmid}/${target_volname}";
}

-=pod
-
=head3 rename_snapshot

$plugin->rename_snapshot($scfg, $storeid, $volname, $source_snap, $target_snap)
@@ -2362,8 +2360,6 @@ my sub blockdev_options_nbd_unix {
return $blockdev;
}

-=pod
-
=head3 qemu_blockdev_options

$blockdev =
@@ -2535,8 +2531,6 @@ sub new_backup_provider {
die "implement me if enabling the feature 'backup-provider' in plugindata()->{features}\n";
}

-=pod
-
=head3 volume_qemu_snapshot_method

$method = $plugin->volume_qemu_snapshot_method($storeid, $scfg, $volname);
--
2.47.3