From 614b8d40e2eb43b0dcd0de7462ace0400698300d Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 3 Sep 2004 05:11:44 +0000 Subject: (configureNetwork2) use key from $intf hash to determine ifcfg filename (to allow to use weird DEVICE fields, like DEVICE=`/usr/sbin/eaglectrl -i`) --- perl-install/network/network.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/network/network.pm') diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm index 15201444d..4a761716a 100644 --- a/perl-install/network/network.pm +++ b/perl-install/network/network.pm @@ -427,7 +427,7 @@ sub configureNetwork2 { #- symlink resolv.conf in install root too so that updates and suppl media can be added symlink "$etc/resolv.conf", "/etc/resolv.conf"; } - write_interface_conf("$etc/sysconfig/network-scripts/ifcfg-$_->{DEVICE}", $_, $netc, $::prefix) foreach grep { $_->{DEVICE} ne 'ppp0' } values %$intf; + write_interface_conf("$etc/sysconfig/network-scripts/ifcfg-$_", $intf->{$_}, $netc, $::prefix) foreach grep { !/^ppp\d+/ } keys %$intf; add2hosts("$etc/hosts", $netc->{HOSTNAME}, "127.0.0.1") if $netc->{HOSTNAME}; add2hosts("$etc/hosts", "localhost", "127.0.0.1"); -- cgit v1.2.1