From 1c90abdf1eb4a48ec920a3d0538849ac9fd21c6f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 16 Feb 2004 16:54:01 +0000
Subject: fix automatically found "...2" dns when network is done

---
 perl-install/network/netconnect.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'perl-install/network')

diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 0fd988180..d95b099e2 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -982,9 +982,11 @@ I cannot set up this connection type.")), return;
                    static_hostname => 
                    {
                     pre => sub {
-                        $netc->{dnsServer} ||= dns($ethntf->{IPADDR});
-                        $gateway_ex = gateway($ethntf->{IPADDR});
-                        #-    $netc->{GATEWAY}   ||= gateway($ethntf->{IPADDR});
+                        if ($ethntf->{IPADDR}) {
+                            $netc->{dnsServer} ||= dns($ethntf->{IPADDR});
+                            $gateway_ex = gateway($ethntf->{IPADDR});
+                            # $netc->{GATEWAY} ||= gateway($ethntf->{IPADDR});
+                        }
                     },
                     name => N("Please enter your host name.
 Your host name should be a fully-qualified host name,
-- 
cgit v1.2.1