diff options
| -rw-r--r-- | perl-install/install/NEWS | 2 | ||||
| -rw-r--r-- | perl-install/install/steps_gtk.pm | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index e8352b96f..0ded3ddf8 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,5 @@ +- fix empty tree at "Individual package selection" step (#48672) + Version 12.17.2 - 23 March 2009 - fix buid due to to broken Estonian translation diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index 7e49efdc8..598c07458 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -361,7 +361,7 @@ sub choosePackagesTree { }, node_state => sub { my $p = install::pkgs::packageByName($packages, $_[0]) or return; - install::pkgs::packageMedium($packages, $p)->{selected} or return; + !install::pkgs::packageMedium($packages, $p)->{ignore} or return; $p->arch eq 'src' and return; $p->flag_base and return 'base'; $p->flag_installed && !$p->flag_upgrade and return 'installed'; |