diff options
Diffstat (limited to 'lib/test-diskbe.pl')
| -rw-r--r-- | lib/test-diskbe.pl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/test-diskbe.pl b/lib/test-diskbe.pl index 2930e426..380716a9 100644 --- a/lib/test-diskbe.pl +++ b/lib/test-diskbe.pl @@ -46,9 +46,8 @@ 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) ."PartLinks: '". join("','", map { "(". ( defined $_ ? join(",", @{$_->tags()}) : '' ) .")" } @{$part->links()}) ."'\n" if scalar(@{$part->links()}) > 0; + my @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); |