summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-04-19 09:47:46 +0000
committerFrancois Pons <fpons@mandriva.com>2000-04-19 09:47:46 +0000
commit1c735368c617f39972cdf64ca15b5214454e6cdf (patch)
treea2f7dd1be96ae083700dbc3754bba1fa0d21bb8b /perl-install
parent4121a86a6bce3fc0e4f86c2a2daadd16aed10e3e (diff)
downloaddrakx-1c735368c617f39972cdf64ca15b5214454e6cdf.tar
drakx-1c735368c617f39972cdf64ca15b5214454e6cdf.tar.gz
drakx-1c735368c617f39972cdf64ca15b5214454e6cdf.tar.bz2
drakx-1c735368c617f39972cdf64ca15b5214454e6cdf.tar.xz
drakx-1c735368c617f39972cdf64ca15b5214454e6cdf.zip
*** empty log message ***
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/pkgs.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 936831380..e07bdbd14 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -338,7 +338,8 @@ sub psUsingHdlists {
my ($hdlist, $medium, $rpmsdir, $descr) = @$_;
my $f = install_any::getFile($hdlist) or die "no $hdlist found";
- psUsingHdlist($prefix, $method, \@packages, $f, $hdlist, $medium, $rpmsdir, $descr, (!$medium || $method ne 'cdrom'));
+ #- make sure the first medium is always selected! so select any less than 2.
+ psUsingHdlist($prefix, $method, \@packages, $f, $hdlist, $medium, $rpmsdir, $descr, ($medium < 2 || $method ne 'cdrom'));
}
log::l("psUsingHdlists read " . scalar keys(%{$packages[0]}) . " headers on " . scalar keys(%{$packages[2]}) . " hdlists");