summaryrefslogtreecommitdiffstats
path: root/perl-install/network.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-08-30 22:32:42 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-08-30 22:32:42 +0000
commit0ed259c5a608e956c9ccfac2845413a6e688d11f (patch)
tree85db0899993a141f8ca805c4b7d82623dad65fd7 /perl-install/network.pm
parent1defcba73b989b6a28826c563417a7c0fc251052 (diff)
downloaddrakx-backup-do-not-use-0ed259c5a608e956c9ccfac2845413a6e688d11f.tar
drakx-backup-do-not-use-0ed259c5a608e956c9ccfac2845413a6e688d11f.tar.gz
drakx-backup-do-not-use-0ed259c5a608e956c9ccfac2845413a6e688d11f.tar.bz2
drakx-backup-do-not-use-0ed259c5a608e956c9ccfac2845413a6e688d11f.tar.xz
drakx-backup-do-not-use-0ed259c5a608e956c9ccfac2845413a6e688d11f.zip
no_comment
Diffstat (limited to 'perl-install/network.pm')
-rw-r--r--perl-install/network.pm3
1 files changed, 2 insertions, 1 deletions
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() {