summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/common.pm4
-rw-r--r--perl-install/fs.pm4
-rw-r--r--perl-install/install2.pm2
-rw-r--r--perl-install/install_any.pm2
-rw-r--r--perl-install/install_steps.pm4
-rw-r--r--perl-install/install_steps_interactive.pm2
-rw-r--r--perl-install/lang.pm2
-rw-r--r--perl-install/pkgs.pm2
-rwxr-xr-xperl-install/standalone/diskdrake2
9 files changed, 13 insertions, 11 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index 80b406780..e08f754ee 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -8,7 +8,7 @@ use vars qw(@ISA @EXPORT $SECTORSIZE);
@ISA = qw(Exporter);
# no need to export ``_''
-@EXPORT = qw($SECTORSIZE __ translate untranslate formatXiB removeXiBSuffix formatTime setVirtual makedev unmakedev salt isCdNotEjectable);
+@EXPORT = qw($SECTORSIZE __ translate untranslate formatXiB removeXiBSuffix formatTime setVirtual makedev unmakedev salt);
# perl_checker: RE-EXPORT-ALL
push @EXPORT, @MDK::Common::EXPORT;
@@ -114,7 +114,7 @@ sub formatTime {
}
}
-sub isCdNotEjectable { scalar(grep { /ram3/ } cat_("/proc/mounts")) == 0 }
+sub usingRamdisk { scalar(grep { /ram3/ } cat_("/proc/mounts")) }
sub sync { &MDK::Common::System::sync }
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index ef520d5a9..d4e9a53fc 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -62,8 +62,8 @@ sub merge_fstabs {
$p->{mntpoint} = $p2->{mntpoint} if delete $p->{unsafeMntpoint};
- $p->{type} = $p2->{type} if $p->{type} eq 'defaults';
- $p->{options} = $p2->{options};
+ $p->{type} ||= $p2->{type};
+ $p->{options} = $p2->{options} if $p->{type} eq 'defaults';
add2hash($p, $p2);
}
@l;
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 3ceedd2b8..db48f2d60 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -537,7 +537,7 @@ sub main {
add2hash($o->{netc}, network::read_resolv_conf($file));
}
}
- install_any::remove_unused();
+ install_any::remove_unused() if common::usingRamdisk();
#-the main cycle
my $clicked = 0;
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index e5bb280fa..bba61987d 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -1007,6 +1007,8 @@ sub check_prog {
$f;
return if grep { -x $_ } @l;
+ common::usingRamdisk() or log::l("ERROR: check_prog can't find the program $f and we're not using ramdisk"), return;
+
my ($f_) = map { m|^/| ? $_ : "/usr/bin/$_" } $f;
remove_bigseldom_used();
foreach (@bigseldom_used_groups) {
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 29e7d5464..8cc7e7175 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -183,8 +183,8 @@ sub doPartitionDisksAfter {
}
cat_("/proc/mounts") =~ m|(\S+)\s+/tmp/image nfs| &&
- !grep { $_->{mntpoint} eq "/mnt/nfs" } @{$o->{manualFstab} || []} and
- push @{$o->{manualFstab}}, { type => "nfs", mntpoint => "/mnt/nfs", device => $1, options => "noauto,ro,nosuid,rsize=8192,wsize=8192" };
+ !grep { $_->{mntpoint} eq "/mnt/nfs" } @{$o->{all_hds}{nfss}} and
+ push @{$o->{all_hds}{nfss}}, { type => 'nfs', mntpoint => "/mnt/nfs", device => $1, options => "noauto,ro,nosuid,rsize=8192,wsize=8192" };
}
#------------------------------------------------------------------------------
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 77691020c..39e32856b 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -654,7 +654,7 @@ sub chooseCD {
my @mediumsDescr = ();
my %mediumsDescr = ();
- if (isCdNotEjectable()) {
+ if (!common::usingRamdisk()) {
#- mono-cd in case of no ramdisk
undef $packages->{mediums}{$_}{selected} foreach @mediums;
log::l("low memory install, using single CD installation (as it is not ejectable)");
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 053e7048c..178671070 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -487,7 +487,7 @@ sub get_x_fontset {
my $c = $charsets{$l->[1]} or return;
if (my $f = $bigfonts{$l->[1]}) {
my $dir = "/usr/X11R6/lib/X11/fonts";
- if (! -e "$dir/$f" && $::isInstall) {
+ if (! -e "$dir/$f" && $::isInstall && common::usingRamdisk()) {
unlink "$dir/$_" foreach values %bigfonts;
install_any::remove_bigseldom_used ();
install_any::getAndSaveFile ("$dir/$f");
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 8bb0763a3..0bcd9d28a 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -423,7 +423,7 @@ sub psUsingHdlist {
#- avoid using more than one medium if Cd is not ejectable.
#- but keep all medium here so that urpmi has the whole set.
- $method eq 'cdrom' && $medium > 1 && isCdNotEjectable() and return;
+ $method eq 'cdrom' && $medium > 1 && !common::usingRamdisk() and return;
#- extract filename from archive, this take advantage of verifying
#- the archive too.
diff --git a/perl-install/standalone/diskdrake b/perl-install/standalone/diskdrake
index 049e9e3fa..639c19b49 100755
--- a/perl-install/standalone/diskdrake
+++ b/perl-install/standalone/diskdrake
@@ -70,7 +70,7 @@ fs::get_raw_hds('', $all_hds);
fs::merge_info_from_fstab([ fsedit::get_really_all_fstab($all_hds) ]);
fs::merge_info_from_mtab([ fsedit::get_really_all_fstab($all_hds) ]);
-if ($ENV{TEST_DEFAULT_OPTIONS})) {
+if ($ENV{TEST_DEFAULT_OPTIONS}) {
fs::set_default_options($all_hds);
fs::set_removable_mntpoints($all_hds);
}