diff options
| author | Maarten Vanraes <alien@mageia.org> | 2016-05-16 17:52:07 +0200 |
|---|---|---|
| committer | Maarten Vanraes <alien@mageia.org> | 2016-05-16 17:52:07 +0200 |
| commit | 1538cfa7a316c89ff08e935d0d8a49de58727630 (patch) | |
| tree | eed184324e0896a8628a595138b284d9b239d9fc | |
| parent | 6f40a4489fa7e6d2cc4852e06f5c67ad30fb833c (diff) | |
| download | manatools-1538cfa7a316c89ff08e935d0d8a49de58727630.tar manatools-1538cfa7a316c89ff08e935d0d8a49de58727630.tar.gz manatools-1538cfa7a316c89ff08e935d0d8a49de58727630.tar.bz2 manatools-1538cfa7a316c89ff08e935d0d8a49de58727630.tar.xz manatools-1538cfa7a316c89ff08e935d0d8a49de58727630.zip | |
show the partlink tags
| -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); |