From 7396369ef190a049b3a779a54edd76ff118f3c28 Mon Sep 17 00:00:00 2001
From: Mystery Man <unknown@mandriva.org>
Date: Fri, 21 Nov 2003 12:53:39 +0000
Subject: This commit was manufactured by cvs2svn to create tag 'MDK92-AMD64'.

---
 perl-install/network/ethernet.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm
index 7eb54397e..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; foreach (@all_cards) {
+    my ($last, %last);
+    foreach (@all_cards) {
 	my $intf2 = findIntf($intf ||= {}, $_->[0]);
-	add2hash($intf2, $last);
+	add2hash($intf2, $last{$_->[0]});
 	add2hash($intf2, { NETMASK => '255.255.255.0' });
 	configureNetworkIntf($netc, $in, $intf2, $netc->{NET_DEVICE}, 0, $_->[1]) or return;
 
-	$last = $intf2;
+	$last = $last{$_->[0]} = $intf2;
     }
     $last or return;
     
-- 
cgit v1.2.1