From 5fbdc963b632b1d8c8ac3a14728b749f4d03b075 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Tue, 3 Oct 2000 17:08:40 +0000
Subject: updated

---
 perl-install/any.pm     | 2 +-
 perl-install/network.pm | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index e2d27ba8e..a269393ce 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -242,7 +242,7 @@ sub setAutologin {
   if ($user) {
       local *F;
       open F, ">$prefix/etc/sysconfig/desktop" or die "Can't open $!";
-      print F uc($desktop);
+      print F uc($desktop) . "\n";
       close F;
   }
   setVarsInSh("$prefix/etc/sysconfig/autologin",
diff --git a/perl-install/network.pm b/perl-install/network.pm
index c4818e758..598949fff 100644
--- a/perl-install/network.pm
+++ b/perl-install/network.pm
@@ -265,6 +265,7 @@ sub configureNetwork {
     #-	      my $wait = $o->wait_message(_("Hostname"), _("Determining host name and domain..."));
     #-	      network::guessHostname($o->{prefix}, $o->{netc}, $o->{intf});
     #-	  }
+    $last or return;
     if ($last->{BOOTPROTO} =~ /^(dhcp|bootp)$/) {
 	my $dhcp_hostname = $netc->{HOSTNAME};
 	$::isInstall and $in->set_help('configureNetworkHostDHCP');
-- 
cgit v1.2.1