summaryrefslogtreecommitdiffstats
path: root/perl-install/network/netconnect.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-04 18:36:28 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-04 18:36:28 +0000
commit987b89760dd7090ecf49bd225c634bcf7503d18c (patch)
tree3869e77b41a03218d5bbf7cc8d8014aaf2dfd19c /perl-install/network/netconnect.pm
parent638167d117b0532ef8ca0806f1a0c25659c179d7 (diff)
downloaddrakx-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.pm4
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}],