summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-02-04 14:51:56 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-02-04 14:51:56 +0000
commit474da8b0f390c1f0b98d31b06a2b39f788d8dc52 (patch)
tree2d5d7c22c8f39db0e2f2a4489a749989d20d09b2 /perl-install/pkgs.pm
parent489a7e2e5f56587a7a2dfad2b04145333d61faf8 (diff)
downloaddrakx-474da8b0f390c1f0b98d31b06a2b39f788d8dc52.tar
drakx-474da8b0f390c1f0b98d31b06a2b39f788d8dc52.tar.gz
drakx-474da8b0f390c1f0b98d31b06a2b39f788d8dc52.tar.bz2
drakx-474da8b0f390c1f0b98d31b06a2b39f788d8dc52.tar.xz
drakx-474da8b0f390c1f0b98d31b06a2b39f788d8dc52.zip
Add support to copy all RPMs to the hard drive before installation.
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 235fc218a..cd6c33f89 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -423,7 +423,9 @@ sub psUsingHdlists {
];
$cdsuppl ? ($medium_name = ($medium_name + 1) . 's') : ++$medium_name;
}
- @hdlists = $o->deselectFoundMedia(\@hdlists) if $deselectionAllowed && !defined $o_initialmedium;
+ my ($finalhdlists, $copy_rpms_on_disk);
+ ($finalhdlists, $copy_rpms_on_disk) = $o->deselectFoundMedia(\@hdlists) if $deselectionAllowed && !defined $o_initialmedium;
+ @hdlists = @$finalhdlists;
foreach my $h (@hdlists) {
#- make sure the first medium is always selected!
@@ -435,7 +437,7 @@ sub psUsingHdlists {
log::l("psUsingHdlists read " . int(@{$o_packages->{depslist}}) .
" headers on " . int(keys %{$o_packages->{mediums}}) . " hdlists");
- return $o_packages, $suppl_CDs;
+ return $o_packages, $suppl_CDs, $copy_rpms_on_disk;
}
sub psUsingHdlist {