diff options
| author | Maarten Vanraes <alien@mageia.org> | 2016-08-06 14:51:21 +0200 |
|---|---|---|
| committer | Maarten Vanraes <alien@mageia.org> | 2016-08-07 17:13:14 +0200 |
| commit | b0d0ede9cd003884980ef2900142e5d69e07974d (patch) | |
| tree | 43d3873487d69041908a2259c24548c179278e64 /lib | |
| parent | 57ceb1511d4233a6f6945317b9dc54621ec2c421 (diff) | |
| download | manatools-b0d0ede9cd003884980ef2900142e5d69e07974d.tar manatools-b0d0ede9cd003884980ef2900142e5d69e07974d.tar.gz manatools-b0d0ede9cd003884980ef2900142e5d69e07974d.tar.bz2 manatools-b0d0ede9cd003884980ef2900142e5d69e07974d.tar.xz manatools-b0d0ede9cd003884980ef2900142e5d69e07974d.zip | |
backend tester shows btrfs subvolumes
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/test-diskbe.pl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lib/test-diskbe.pl b/lib/test-diskbe.pl index 007f6d6c..0fe445be 100644 --- a/lib/test-diskbe.pl +++ b/lib/test-diskbe.pl @@ -28,6 +28,13 @@ sub dumppart { for my $p (sort { $a->label() cmp $b->label() } @parts) { dumppart($db_man, $p, $level); } + if ($part->type() eq 'BtrfsVol') { + my @parts = $db_man->findpartprop('BtrfsVol', 'parent', $part->prop('subvolid')); + print sp($level) ."Child Subvolumes:\n" if scalar(@parts) > 0; + for my $part (sort { $a->label() cmp $b->label() } @parts) { + dumppart($db_man, $part, $level); + } + } if ($part->type() eq 'Mount') { my @parts = $db_man->findpartprop('Mount', 'parent', $part->prop('id')); print sp($level) ."Child Mounts:\n" if scalar(@parts) > 0; @@ -42,6 +49,7 @@ my $db_man = ManaTools::Shared::disk_backend->new(); #$db_man->logger->trace(1); +#$db_man->load(); $db_man->probe(); my $mode = 'disks'; |