From e754966c3d8974dcdd396658d6b29e0723c07511 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 23 Jan 2004 16:21:05 +0000
Subject: fix adsl connection type retrieving

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

(limited to 'perl-install/network')

diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 52d2e13b6..fae1f4fd0 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -642,7 +642,7 @@ If you don't know, choose 'use pppoe'"),
                               },
                              ],
                     post => sub {
-                        my $adsl_type = find { $adsl_types{$_} eq $adsl_protocol } keys %adsl_devices;
+                        my $adsl_type = find { $adsl_types{$_} eq $adsl_protocol } keys %adsl_types;
                         if ($adsl_type eq 'dhcp') {
                             $auto_ip = 1;
                             return 'lan_intf';
-- 
cgit v1.2.1