From 0ed259c5a608e956c9ccfac2845413a6e688d11f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 30 Aug 1999 22:32:42 +0000
Subject: no_comment

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

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

diff --git a/perl-install/network.pm b/perl-install/network.pm
index 15a4cbb02..ca4a66f80 100644
--- a/perl-install/network.pm
+++ b/perl-install/network.pm
@@ -16,6 +16,7 @@ use log;
 sub read_conf {
     my ($file) = @_;
     my %netc = getVarsFromSh($file);
+    $netc->{dnsServer} = $netc->{NS0};
     \%netc;
 }
 
@@ -129,7 +130,7 @@ sub sethostname {
 
 sub dnsServers {
     my ($netc) = @_;
-    map { $netc->{$_} } qw(dnsServer dnsServer2 dnsServer3);
+    grep { $_ } map { $netc->{$_} } qw(dnsServer dnsServer2 dnsServer3);
 }
 
 sub getNet() {
-- 
cgit v1.2.1