From fe137bd19cecddd4d36c6d68b416a81363e1df30 Mon Sep 17 00:00:00 2001
From: Axel Burri <axel@tty0.ch>
Date: Sun, 5 Jun 2022 23:20:52 +0200
Subject: [PATCH] btrbk: honor --exclude on delete

---
 btrbk | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/btrbk b/btrbk
index 8db4049..447c888 100755
--- a/btrbk
+++ b/btrbk
@@ -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},