diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-02-04 14:51:56 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-02-04 14:51:56 +0000 |
| commit | 474da8b0f390c1f0b98d31b06a2b39f788d8dc52 (patch) | |
| tree | 2d5d7c22c8f39db0e2f2a4489a749989d20d09b2 /perl-install/pkgs.pm | |
| parent | 489a7e2e5f56587a7a2dfad2b04145333d61faf8 (diff) | |
| download | drakx-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.pm | 6 |
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 { |