From ff7e8a2ea88560c3659066292f497fe7b9e29c20 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 23 Jan 2004 16:17:10 +0000
Subject: fix interface name when doing adsl over an ethernet card

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

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

diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index aaadd6383..52d2e13b6 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -540,7 +540,7 @@ killall pppd
                                         'sagem'      => 'adiusbadsl',
                                         'speedtouch' => 'speedtouch',
                                        );
-                        my $adsl_device = find { $adsl_devices{$_} eq $ntf_name } keys %adsl_devices;
+                        my $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