diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-04 18:36:28 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-04 18:36:28 +0000 |
| commit | 987b89760dd7090ecf49bd225c634bcf7503d18c (patch) | |
| tree | 3869e77b41a03218d5bbf7cc8d8014aaf2dfd19c /perl-install/network/netconnect.pm | |
| parent | 638167d117b0532ef8ca0806f1a0c25659c179d7 (diff) | |
| download | drakx-backup-do-not-use-987b89760dd7090ecf49bd225c634bcf7503d18c.tar drakx-backup-do-not-use-987b89760dd7090ecf49bd225c634bcf7503d18c.tar.gz drakx-backup-do-not-use-987b89760dd7090ecf49bd225c634bcf7503d18c.tar.bz2 drakx-backup-do-not-use-987b89760dd7090ecf49bd225c634bcf7503d18c.tar.xz drakx-backup-do-not-use-987b89760dd7090ecf49bd225c634bcf7503d18c.zip | |
- %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)
Diffstat (limited to 'perl-install/network/netconnect.pm')
| -rw-r--r-- | perl-install/network/netconnect.pm | 4 |
1 files 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}], |