diff options
author | Francois Pons <fpons@mandriva.com> | 2002-01-04 17:16:01 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 2002-01-04 17:16:01 +0000 |
commit | 6ea016b32d565af4c2be937295792089aeb56d9d (patch) | |
tree | 4558f62ef2319e69ce939a04206d84ad3c2e6d49 /perl-install | |
parent | aa560937696c59232dfdf00f3b493b8f85bf412a (diff) | |
download | drakx-6ea016b32d565af4c2be937295792089aeb56d9d.tar drakx-6ea016b32d565af4c2be937295792089aeb56d9d.tar.gz drakx-6ea016b32d565af4c2be937295792089aeb56d9d.tar.bz2 drakx-6ea016b32d565af4c2be937295792089aeb56d9d.tar.xz drakx-6ea016b32d565af4c2be937295792089aeb56d9d.zip |
fix for auto updates.
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/install_steps.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index ef8235c0b..14396d13d 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -591,12 +591,12 @@ sub installCrypto { sub installUpates { my ($o) = @_; - my $u = $o->{updates} or return; $u->{updates} && $u->{packages} or return; + my $u = $o->{updates} or return; $u->{updates} or return; upNetwork($o); require crypto; my @crypto_packages = crypto::getPackages($o->{prefix}, $o->{packages}, $u->{mirror}); - $o->pkg_install(@{$u->{packages}}); + $o->pkg_install(@{$u->{packages} || []}); } sub summary { |