From d5e061896a35a49a50124949c2882ac9cbe94589 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 29 Aug 1999 20:15:36 +0000
Subject: no_comment

---
 perl-install/install_steps.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'perl-install/install_steps.pm')

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 87a43f815..8e086f70d 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -160,12 +160,14 @@ sub configureNetwork($) {
     network::write_resolv_conf("$etc/resolv.conf", $o->{netc});
     network::write_interface_conf("$etc/sysconfig/network-scripts/ifcfg-$_->{DEVICE}", $_) foreach @{$o->{intf}};
     network::add2hosts("$etc/hosts", $o->{netc}{HOSTNAME}, map { $_->{IPADDR} } @{$o->{intf}});
-#    syscall_('sethostname', $hostname, length $hostname) or warn "sethostname failed: $!";
+    network::sethostname($o->{netc}) unless $::testing;
+    network::addDefaultRoute($o->{netc}) unless $::testing;
     #res_init();		# reinit the resolver so DNS changes take affect     
 }
 
 sub timeConfig {}
 sub servicesConfig {}
+sub printerConfig {}
 
 sub setRootPassword($) {
     my ($o) = @_;
@@ -231,7 +233,7 @@ sub createBootdisk($) {
 
     return if $::testing;
 
-    lilo::mkbootdisk($o->{prefix}, versionString(), "/dev/$dev");
+    lilo::mkbootdisk($o->{prefix}, versionString(), $dev);
     $o->{mkbootdisk} = $dev;
 }
 
-- 
cgit v1.2.1