From 1538cfa7a316c89ff08e935d0d8a49de58727630 Mon Sep 17 00:00:00 2001
From: Maarten Vanraes <alien@mageia.org>
Date: Mon, 16 May 2016 17:52:07 +0200
Subject: show the partlink tags

---
 lib/test-diskbe.pl | 5 ++---
 1 file 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);
-- 
cgit v1.2.1