Part: allow to extend auto-reversible tags

1 files changed, 10 insertions, 0 deletions

diff --git a/lib/ManaTools/Shared/disk_backend/Plugin/Btrfs.pm b/lib/ManaTools/Shared/disk_backend/Plugin/Btrfs.pm
index 9ee2a06e..0683f669 100644
--- a/lib/ManaTools/Shared/disk_backend/Plugin/Btrfs.pm
+++ b/lib/ManaTools/Shared/disk_backend/Plugin/Btrfs.pm
@@ -303,6 +303,16 @@ class_has '+restrictions' => (
     }
 );
 
+augment('_reverse_tag', sub {
+    my $self = shift;
+    my $tag = shift;
+    my $rtag = inner($tag);
+    return $rtag if (defined($rtag) && $tag ne $rtag);
+    return 'childsubvol' if ($tag eq 'parentsubvol');
+    return 'parentsubvol' if ($tag eq 'childsubvol');
+    return $tag;
+});
+
 around('find_path', sub {
     my $orig = shift;
     my $self = shift;