summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_gtk.pm5
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 63a10764b..77ad68020 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -400,7 +400,7 @@ sub choosePackagesTree {
$o->ask_okcancel('', [ $isSelection ?
N("The following packages are going to be installed") :
N("The following packages are going to be removed"),
- formatList(20, sort @l) ], 1) or $error = ''; #- defined
+ formatList(20, sort(map { $_->name } @l)) ], 1) or $error = ''; #- defined
}
$error and $o->ask_warn('', $error);
if (defined $error) {
@@ -411,8 +411,7 @@ sub choosePackagesTree {
} else {
#- keep the changes, update visible state.
foreach (@l) {
- my $p = pkgs::packageByName($packages, $_);
- $set_state->($_, $p->flag_selected ? 'selected' : 'unselected');
+ $set_state->($_->name, $_->flag_selected ? 'selected' : 'unselected');
}
}
},