From 6ea016b32d565af4c2be937295792089aeb56d9d Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 4 Jan 2002 17:16:01 +0000
Subject: fix for auto updates.

---
 perl-install/install_steps.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

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 {
-- 
cgit v1.2.1