From 3a2fdb93c9cc558cc882983206efe146cf427201 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 8 Oct 2003 21:58:57 +0000 Subject: network interface configuration step: using network interface from interface/driver list is more robust that relying on possibly empty int variable (better #3276 fix) --- perl-install/network/ethernet.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'perl-install/network') diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm index ef44e7db9..8c3bb5b56 100644 --- a/perl-install/network/ethernet.pm +++ b/perl-install/network/ethernet.pm @@ -159,13 +159,14 @@ sub configureNetwork { configureNetwork_step_1: $netc ||= {}; - my ($last, %last); foreach (@all_cards) { + my ($last, %last); + foreach (@all_cards) { my $intf2 = findIntf($intf ||= {}, $_->[0]); - add2hash($intf2, $last{$intf->{DEVICE}}); + add2hash($intf2, $last{$_->[0]}); add2hash($intf2, { NETMASK => '255.255.255.0' }); configureNetworkIntf($netc, $in, $intf2, $netc->{NET_DEVICE}, 0, $_->[1]) or return; - $last = $last{$intf2->{DEVICE}} = $intf2; + $last = $last{$_->[0]} = $intf2; } $last or return; -- cgit v1.2.1