From eb5981fa86571102b046565de0a7691292c1dede Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 6 Oct 2003 13:33:47 +0000
Subject: fix #3276: when steping back in drakconnect wizard, do not overwrite
 first card parameters with last one's

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

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