diff options
Diffstat (limited to 'lib/test-diskbe.pl')
-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'; |