summaryrefslogtreecommitdiffstats
path: root/perl-install/network/adsl.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-11-18 16:44:52 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-11-18 16:44:52 +0000
commite9746d5b1868e7ecdbabce94c47325e05c2f666d (patch)
tree0c1d2ca28c1c3c7fbddb81d4b3d29572895bded7 /perl-install/network/adsl.pm
parentc7a67d1bcbcffaadbbb06be8f11e78e7508eed02 (diff)
downloaddrakx-e9746d5b1868e7ecdbabce94c47325e05c2f666d.tar
drakx-e9746d5b1868e7ecdbabce94c47325e05c2f666d.tar.gz
drakx-e9746d5b1868e7ecdbabce94c47325e05c2f666d.tar.bz2
drakx-e9746d5b1868e7ecdbabce94c47325e05c2f666d.tar.xz
drakx-e9746d5b1868e7ecdbabce94c47325e05c2f666d.zip
make perl_checker happy
Diffstat (limited to 'perl-install/network/adsl.pm')
-rw-r--r--perl-install/network/adsl.pm8
1 files changed, 3 insertions, 5 deletions
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm
index a8f51e2e3..206d81dea 100644
--- a/perl-install/network/adsl.pm
+++ b/perl-install/network/adsl.pm
@@ -20,16 +20,14 @@ sub configure {
# N("The most common way to connect with adsl is pppoe.
# Some connections use pptp, a few ones use dhcp.
# If you don't know, choose 'use pppoe'"), [N_("use pppoe"), N_("use pptp"), N_("use dhcp"), N_("Alcatel speedtouch usb"), N_("ECI Hi-Focus")]) or return;
- my @l = (
- [N_("use pppoe"),
+ my $l = [N_("use pppoe"),
N_("use pptp"),
N_("use dhcp"),
- N_("Alcatel speedtouch usb") . if_($netc->{autodetect}{adsl}{speedtouch}, " - detected")]
- );
+ N_("Alcatel speedtouch usb") . if_($netc->{autodetect}{adsl}{speedtouch}, " - detected")];
my $type = $in->ask_from_list_(N("Connect to the Internet"),
N("The most common way to connect with adsl is pppoe.
Some connections use pptp, a few ones use dhcp.
-If you don't know, choose 'use pppoe'"), @l) or return;
+If you don't know, choose 'use pppoe'"), $l) or return;
$type =~ s/use //;
if ($type eq 'pppoe') {
$in->do_pkgs->install("rp-$type");