From dbb2f1b8d650e53f04a8a176d12c1e116bbe5f89 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 16 Apr 2012 21:37:34 +0000 Subject: (choosePackagesTree) display informations, even if we failed to retrieve the package header the later is needed only for description. "No description" will be merged in from rpmdrake --- perl-install/install/steps_gtk.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index e484416dc..6909ec7b3 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -407,12 +407,12 @@ sub choosePackagesTree { my $imp = translate($install::pkgs::compssListDesc{$p->flag_base ? 5 : $p->rate}); my $tag = { 'foreground' => 'royalblue3' }; - $@ ? N("Bad package") : + [ [ N("Name: "), $tag ], [ $p->name . "\n" ], [ N("Version: "), $tag ], [ $p->version . '-' . $p->release . "\n" ], [ N("Size: "), $tag ], [ N("%d KB\n", $p->size / 1024) ], if_($imp, [ N("Importance: "), $tag ], [ "$imp\n" ]), - [ "\n" ], [ formatLines($p->description) ] ]; + [ "\n" ], [ formatLines($p->description || N("No description")) ] ]; }, toggle_nodes => sub { my $set_state = shift @_; -- cgit v1.2.1