diff options
Diffstat (limited to 'lib/test-diskbe.pl')
| -rw-r--r-- | lib/test-diskbe.pl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/test-diskbe.pl b/lib/test-diskbe.pl index e48f925a..c97479d0 100644 --- a/lib/test-diskbe.pl +++ b/lib/test-diskbe.pl @@ -46,6 +46,13 @@ sub dumppart { for my $io (sort { $a->label() cmp $b->label() } @ios) { dumpio($db_man, $io, $level); } + my @parts = $part->find_parts(); + print sp($level) ."PartLinks: ". scalar(@parts) ."\n" if scalar(@parts) > 0; + @parts = $part->find_parts(undef, 'child'); + print sp($level) ."Child links:\n" if scalar(@parts) > 0; + for my $p (sort { $a->label() cmp $b->label() } @parts) { + dumppart($db_man, $p, $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; |