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

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

(limited to 'perl-install/network/adsl.pm')

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";
-- 
cgit v1.2.1