diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-11-16 17:13:56 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-11-16 17:13:56 +0000 |
| commit | 6af906300fcbac39f056c7175976f6d9a2ddd346 (patch) | |
| tree | 303b628e35887458c8e5e698a01ed9afeb540e3d /perl-install/install/pkgs.pm | |
| parent | ecdca107d7e3d4e706cb2b3abcf8c05594e2669e (diff) | |
| download | drakx-backup-do-not-use-6af906300fcbac39f056c7175976f6d9a2ddd346.tar drakx-backup-do-not-use-6af906300fcbac39f056c7175976f6d9a2ddd346.tar.gz drakx-backup-do-not-use-6af906300fcbac39f056c7175976f6d9a2ddd346.tar.bz2 drakx-backup-do-not-use-6af906300fcbac39f056c7175976f6d9a2ddd346.tar.xz drakx-backup-do-not-use-6af906300fcbac39f056c7175976f6d9a2ddd346.zip | |
(saveSelected) fix a crash when pressing "previous" after selecting package groups
Diffstat (limited to 'perl-install/install/pkgs.pm')
| -rw-r--r-- | perl-install/install/pkgs.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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 ]; } |