diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-04-19 18:31:40 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-04-19 18:31:40 +0000 |
commit | 688327a18a85679ff62262559dafbf44c3b6f521 (patch) | |
tree | ded8dd2ec559eb7e1cbe5ac6e9a5373b76b94716 | |
parent | 805b728ea430da97db81ba9e556abd273882bf66 (diff) | |
download | drakx-backup-do-not-use-688327a18a85679ff62262559dafbf44c3b6f521.tar drakx-backup-do-not-use-688327a18a85679ff62262559dafbf44c3b6f521.tar.gz drakx-backup-do-not-use-688327a18a85679ff62262559dafbf44c3b6f521.tar.bz2 drakx-backup-do-not-use-688327a18a85679ff62262559dafbf44c3b6f521.tar.xz drakx-backup-do-not-use-688327a18a85679ff62262559dafbf44c3b6f521.zip |
(_resolve_requested_and_check) fix a crash when package state is empty (mga#5487)
-rw-r--r-- | perl-install/install/NEWS | 1 | ||||
-rw-r--r-- | perl-install/install/pkgs.pm | 7 |
2 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index 8332e0c39..6f2ea446e 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,4 @@ +- fix a crash when package state is empty (mga#5487) - when selecting where ro install bootloader, display mountpoint if available, and size+fs_type if we have nothing (mga#5460) diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm index 77aaebf9c..266c0a5b9 100644 --- a/perl-install/install/pkgs.pm +++ b/perl-install/install/pkgs.pm @@ -279,8 +279,11 @@ sub _resolve_requested_and_check { my @l = $packages->resolve_requested($packages->{rpmdb}, $state, $requested, callback_choices => \&packageCallbackChoices, no_suggests => $::o->{no_suggests}); - my @new_ids = map { $packages->{depslist}[$_]->id } grep { $state->{selected}{$_}{suggested} } keys $state->{selected}; - @suggested_package_ids = uniq(@suggested_package_ids, @new_ids); + + if (!is_empty_hash_ref($state->{selected})) { + my @new_ids = map { $packages->{depslist}[$_]->id } grep { $state->{selected}{$_}{suggested} } keys $state->{selected}; + @suggested_package_ids = uniq(@suggested_package_ids, @new_ids); + } my $error; if (find { !exists $state->{selected}{$_} } keys %$requested) { |