From 987b89760dd7090ecf49bd225c634bcf7503d18c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 4 Dec 2002 18:36:28 +0000 Subject: - %l is not used, so why declare it?? - in network::netconnect::main(), declare @l as it should be. But the code is really wrong, it NEEDS fixing (bis) --- perl-install/network/netconnect.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index ea46eb9a8..8abb0085e 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -187,7 +187,7 @@ If you don't want to use the auto detection, deselect the checkbox. # [N("LAN connection"), $netc->{autodetect}{lan}, N_("ethernet card(s) detected"), \$conf{lan}] # ); my $i = 0; - map { defined $set_default or do { $_->[1] and $set_default = $i }; $i++ } @l; +# map { defined $set_default or do { $_->[1] and $set_default = $i }; $i++ } @l; # my %l = ( # 1 => [N("Normal modem connection") . if_($netc->{autodetect}{modem}, " - " . N("detected on port %s", $netc->{autodetect}{modem})), "modem"], # 2 => [N("Winmodem connection") . if_($netc->{autodetect}{winmodem}, " - " . N("detected")), "winmodem"], @@ -211,7 +211,7 @@ If you don't want to use the auto detection, deselect the checkbox. # }}] # ) or goto step_1; # $conf{$l{$cnx_type}[1]} = 1; - @l = ( + my @l = ( [N("Normal modem connection") . if_($netc->{autodetect}{modem}, " - " . N("detected on port %s", $netc->{autodetect}{modem})), \$conf{modem}], [N("Winmodem connection") . if_($netc->{autodetect}{winmodem}, " - " . N("detected")), \$conf{winmodem}], [N("ISDN connection") . if_($netc->{autodetect}{isdn}{description}, " - " . N("detected %s", $netc->{autodetect}{isdn}{description})), \$conf{isdn}], -- cgit v1.2.1