From c0d59d692d6359377dcaec158698624cd905f1de Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 23 Nov 1999 10:57:03 +0000
Subject: *** empty log message ***

---
 perl-install/install_steps_interactive.pm | 4 ++--
 perl-install/network.pm                   | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 7d154bfe5..4a6d7384b 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -896,7 +896,7 @@ sub miscellaneous {
 	4 => _("High"),
 	5 => _("Paranoid"),
     );
-    delete @l{0,4,5} unless $::expert;
+    delete @l{0,1,5} unless $::expert;
 
     my $u = $o->{miscellaneous} ||= {};
     exists $u->{LAPTOP} or $u->{LAPTOP} = 1;
@@ -908,7 +908,7 @@ sub miscellaneous {
 	[ _("Is this machine a laptop?"), 
 	  _("Use hard drive optimisations?"), 
 	  _("Choose security level"),
-	  _("Precise RAM size if needed (found %d MB)", availableRam / 1024),
+	  _("Precise RAM size if needed (found %d MB)", availableRam / 1024 + 3), #- add three for correction.
 	],
 	[ { val => \$u->{LAPTOP}, type => 'bool' },
 	  { val => \$u->{HDPARM}, type => 'bool', text => _("(may cause data corruption)") },
diff --git a/perl-install/network.pm b/perl-install/network.pm
index fa5b1f3e9..9ddde836f 100644
--- a/perl-install/network.pm
+++ b/perl-install/network.pm
@@ -57,7 +57,7 @@ sub write_conf {
 		     });
     add2hash($netc, { DOMAINNAME => $netc->{HOSTNAME} =~ /\.(.*)/ });
 
-    setVarsInSh($file, $netc, qw(NETWORKING FORWARD_IPV4 HOSTNAME DOMAINNAME GATEWAY GATEWAYDEV));
+    setVarsInSh($file, $netc, qw(NETWORKING FORWARD_IPV4 HOSTNAME DOMAINNAME GATEWAY GATEWAYDEV NISDOMAIN));
 }
 
 sub write_resolv_conf {
-- 
cgit v1.2.1