summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-12-28 23:52:57 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-12-28 23:52:57 +0000
commitfcef7c0af0b51e7883fe6f78db5ab6f03be8000a (patch)
tree8321e6fa768420567bb3bcc06d18730b376facac /perl-install/install_steps_gtk.pm
parent55a6953f8ce1b586d8128feaa1a1e08c9f9beb03 (diff)
downloaddrakx-backup-do-not-use-fcef7c0af0b51e7883fe6f78db5ab6f03be8000a.tar
drakx-backup-do-not-use-fcef7c0af0b51e7883fe6f78db5ab6f03be8000a.tar.gz
drakx-backup-do-not-use-fcef7c0af0b51e7883fe6f78db5ab6f03be8000a.tar.bz2
drakx-backup-do-not-use-fcef7c0af0b51e7883fe6f78db5ab6f03be8000a.tar.xz
drakx-backup-do-not-use-fcef7c0af0b51e7883fe6f78db5ab6f03be8000a.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-rw-r--r--perl-install/install_steps_gtk.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 5e6963435..94471d205 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -384,8 +384,8 @@ sub choosePackagesTree {
$w->show;
$w->set_sensitive(!$p->{base} && !$p->{installed});
$w->signal_connect(focus_in_event => sub {
- my $p = pkgs::getHeader($p);
- gtktext_insert($info_widget,
+ my $p = eval { pkgs::getHeader($p) };
+ gtktext_insert($info_widget, $@ ? _("Bad package") :
_("Version: %s\n", c::headerGetEntry($p, 'version') . '-' . c::headerGetEntry($p, 'release')) .
_("Size: %d KB\n", c::headerGetEntry($p, 'size') / 1024) .