From 6af906300fcbac39f056c7175976f6d9a2ddd346 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 16 Nov 2012 17:13:56 +0000
Subject: (saveSelected) fix a crash when pressing "previous" after selecting
 package groups

---
 perl-install/install/NEWS    | 1 +
 perl-install/install/pkgs.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install')

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 ];
 }
-- 
cgit v1.2.1