From 24050fea465c24a852693bd1dfdb3c31abf3e482 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/pkgs.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/install/pkgs.pm')

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