summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/network/adsl.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm
index 62ed99d25..5cf1423b8 100644
--- a/perl-install/network/adsl.pm
+++ b/perl-install/network/adsl.pm
@@ -31,7 +31,7 @@ If you don't know, choose 'use pppoe'"),
[ sort values %l ],
$l{ find { $netc->{autodetect}{adsl}{$_} } keys %l }
) or return;
- $type =~ s/use //;
+ $type = find { $l{$_} eq $type } keys %l;
if ($type eq 'pppoe') {
$in->do_pkgs->install("rp-$type");
$netcnx->{type} = "adsl_$type";