diff options
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 6 |
1 files changed, 6 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; |