From 131521f5c232bbcea7055b00cf80604f87aa039f Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Sat, 24 Jan 2004 15:56:45 +0000
Subject: fix adsl device setting :-(

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

(limited to 'perl-install')

diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 82b95a726..f0a0d1a57 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -537,7 +537,7 @@ killall pppd
                                         'sagem'      => 'adiusbadsl',
                                         'speedtouch' => 'speedtouch',
                                        );
-                        my $adsl_device = (find { $adsl_devices{$_} eq $ntf_name } keys %adsl_devices) || $ntf_name;
+                        $adsl_device = (find { $adsl_devices{$_} eq $ntf_name } keys %adsl_devices) || $ntf_name;
                         return 'adsl_unsupported_eci' if $adsl_device eq 'eci';
                         $netconnect::need_restart_network = member($adsl_device, qw(speedtouch eci));
                         $in->do_pkgs->install($packages{$adsl_device}) if $packages{$adsl_device};
-- 
cgit v1.2.1