summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm6
-rw-r--r--perl-install/pkgs.pm1
2 files changed, 7 insertions, 0 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 2ae0d2f4c..612a70333 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -359,6 +359,12 @@ sub chooseCD {
my @mediumsDescr = ();
my %mediumsDescr = ();
+ unless (grep { /ram3/ } cat_("/proc/mounts")) {
+ #- mono-cd in case of no ramdisk
+ undef $packages->[2]{$_}{selected} foreach @mediums;
+ return;
+ }
+
#- if no other medium available or a poor beginner, we are choosing for him!
#- note first CD is always selected and should not be unselected!
return if scalar(@mediums) == 0 || $::beginner;
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index d4d8f9493..2ba869eb9 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -417,6 +417,7 @@ sub psUsingHdlists {
#- make sure the first medium is always selected!
#- by default select all image.
psUsingHdlist($prefix, $method, \@packages, $hdlist, $medium, $rpmsdir, $descr, 1);
+
}
log::l("psUsingHdlists read " . scalar keys(%{$packages[0]}) . " headers on " . scalar keys(%{$packages[2]}) . " hdlists");