From 82bfcba1c916d5a35bd75e6bd067701e5b648d2c Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Tue, 17 Aug 2004 11:18:02 +0000 Subject: (conf_network_card_backend) set NET_INTERFACE too --- perl-install/network/ethernet.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm index 074fec628..1615b96bb 100644 --- a/perl-install/network/ethernet.pm +++ b/perl-install/network/ethernet.pm @@ -114,7 +114,7 @@ sub conf_network_card_backend { $interface =~ /eth[0-9]+/ or die("the interface is not an ethx"); # FIXME: this is wrong regarding some wireless interfaces or/and if user play if ifname(1): - $netc->{NET_DEVICE} = $interface; #- one consider that there is only ONE Internet connection device.. + $netc->{$_} = $interface foreach qw(NET_DEVICE NET_INTERFACE); #- one consider that there is only ONE Internet connection device.. @{$intf->{$interface}}{qw(DEVICE BOOTPROTO NETMASK NETWORK ONBOOT)} = ($interface, $type, '255.255.255.0', $o_netadr, 'yes'); -- cgit v1.2.1