summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-11-16 17:13:56 +0000
committerThierry Vignaud <tv@mageia.org>2012-11-16 17:13:56 +0000
commit24050fea465c24a852693bd1dfdb3c31abf3e482 (patch)
tree303b628e35887458c8e5e698a01ed9afeb540e3d
parent61e15785e6fa1d3f287af72fa5c3a498c9b113e1 (diff)
downloaddrakx-24050fea465c24a852693bd1dfdb3c31abf3e482.tar
drakx-24050fea465c24a852693bd1dfdb3c31abf3e482.tar.gz
drakx-24050fea465c24a852693bd1dfdb3c31abf3e482.tar.bz2
drakx-24050fea465c24a852693bd1dfdb3c31abf3e482.tar.xz
drakx-24050fea465c24a852693bd1dfdb3c31abf3e482.zip
(saveSelected) fix a crash when pressing "previous" after selecting package groups
-rw-r--r--perl-install/install/NEWS1
-rw-r--r--perl-install/install/pkgs.pm2
2 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 6d3d203d2..e11acc7e7 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,5 +1,6 @@
- retrieve package descriptions from XML meta-data instead of from huge hdlists
(fix not displaying packages description in network installs) (mga#549)
+- fix a crash when pressing "previous" after selecting package groups
Version 14.50.1 - 15 November 2012
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index ff6198ecd..8d00d1bb2 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -487,7 +487,7 @@ sub setSelectedFromCompssList {
sub saveSelected {
my ($packages) = @_;
my $state = delete $packages->{state};
- my @l = @{$packages->{depslist}};
+ my @l = @{$packages->{depslist} || []};
my @flags = map { ($_->flag_requested && 1) + ($_->flag_required && 2) + ($_->flag_upgrade && 4) } @l;
[ $packages, $state, \@l, \@flags ];
}