btrfs: rename snapshot parameter

It was originally introduced as $snapshot to match the argument name of
foreach_subvol, we rename it here to make it clear that it only contains
the snapshot name.

Signed-off-by: Maximiliano Sandoval <m.sandoval@proxmox.com>
This commit is contained in:
Maximiliano Sandoval
2025-02-19 12:17:40 +01:00
committed by Fiona Ebner
parent 3abd10cedf
commit a25b1050ce

View File

@ -407,18 +407,18 @@ my sub path_is_subvolume : prototype($) {
my $BTRFS_SNAPSHOT_REGEX = qr/((?:vm|base|subvol)-\d+-disk-\d+(?:\.subvol)?)(?:\@(\S+))$/; my $BTRFS_SNAPSHOT_REGEX = qr/((?:vm|base|subvol)-\d+-disk-\d+(?:\.subvol)?)(?:\@(\S+))$/;
# Calls `$code->($snapshot)` for each snapshot of the BTRFS subvolume. # Calls `$code->($snap_name)` for each snapshot of the BTRFS subvolume.
my sub foreach_snapshot_of_subvol : prototype($$) { my sub foreach_snapshot_of_subvol : prototype($$) {
my ($subvol, $code) = @_; my ($subvol, $code) = @_;
my $basename = basename($subvol); my $basename = basename($subvol);
my $dir = dirname($subvol); my $dir = dirname($subvol);
dir_glob_foreach($dir, $BTRFS_SNAPSHOT_REGEX, sub { dir_glob_foreach($dir, $BTRFS_SNAPSHOT_REGEX, sub {
my ($volume, $name, $snapshot) = ($1, $2, $3); my ($volume, $name, $snap_name) = ($1, $2, $3);
return if !path_is_subvolume("$dir/$volume"); return if !path_is_subvolume("$dir/$volume");
return if $name ne $basename; return if $name ne $basename;
return if !defined $snapshot; return if !defined $snap_name;
$code->($snapshot); $code->($snap_name);
}); });
} }