From eb54e4ecfb37eb663f7718d5d615a8f944997b41 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 24 Nov 2003 18:38:50 +0000
Subject:  (configure) forward fix adsl connection class due to type being now
 translated

---
 perl-install/network/adsl.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm
index 47bb604cb..fb9097469 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";
-- 
cgit v1.2.1