From 6133180ed6fbecc3a345c1721b64d38d6483ffa2 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Thu, 10 Jan 2002 15:02:23 +0000
Subject: corrected network domainname pb

---
 perl-install/network/network.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index 933ef2215..ee62d089d 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -71,7 +71,7 @@ sub write_conf {
 		     FORWARD_IPV4 => "false",
 		     HOSTNAME => "localhost.localdomain",
 		    });
-   ($netc->{DOMAINNAME}) = ($netc->{HOSTNAME} =~ /\.(.*)/);
+   ($netc->{DOMAINNAME}) ||= ($netc->{HOSTNAME} =~ /\.(.*)/);
 
     setVarsInSh($file, $netc, qw(NETWORKING FORWARD_IPV4 DHCP_HOSTNAME HOSTNAME DOMAINNAME GATEWAY GATEWAYDEV NISDOMAIN));
 }
-- 
cgit v1.2.1