btrbk: honor --exclude on delete

pull/542/head
Axel Burri 2022-06-05 23:20:52 +02:00
parent 6d57aa4dbe
commit fe137bd19c
1 changed files with 4 additions and 0 deletions

4
btrbk
View File

@ -4516,6 +4516,10 @@ sub macro_delete($$$$;@)
my @schedule;
foreach my $vol (@{vinfo_subvol_list($root_subvol, btrbk_direct_leaf => $subvol_basename)}) {
if(my $ff = vinfo_match(\@exclude_vf, $vol)) {
INFO "Skipping deletion of \"$vol->{PRINT}\": Match on exclude pattern \"$ff->{unparsed}\"";
$vol->{node}{FORCE_PRESERVE} ||= "preserve forced: Match on exclude pattern \"$ff->{unparsed}\"";
}
push(@schedule, { value => $vol,
# name => $vol->{PRINT}, # only for logging
btrbk_date => $vol->{node}{BTRBK_DATE},