From aa560937696c59232dfdf00f3b493b8f85bf412a Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 4 Jan 2002 16:41:45 +0000
Subject: added update installation support to install (big modifs need
 testing).

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

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

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index ac7f33e98..ef8235c0b 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -589,6 +589,16 @@ sub installCrypto {
     $o->pkg_install(@{$u->{packages}});
 }
 
+sub installUpates {
+    my ($o) = @_;
+    my $u = $o->{updates} or return; $u->{updates} && $u->{packages} or return;
+
+    upNetwork($o);
+    require crypto;
+    my @crypto_packages = crypto::getPackages($o->{prefix}, $o->{packages}, $u->{mirror});
+    $o->pkg_install(@{$u->{packages}});
+}
+
 sub summary {
     my ($o) = @_;
     configureTimezone($o);
-- 
cgit v1.2.1