diff options
| -rw-r--r-- | perl-install/network/netconnect.pm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index a2e788444..56fdbe7a7 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -469,12 +469,11 @@ Take a look at http://www.linmodems.org"), my %relocations = (ltmodem => $in->do_pkgs->check_kernel_module_packages('ltmodem')); my $type; - foreach (map { $_->{driver} } values %{$netc->{autodetect}{modem}}) { - /^Hcf:/ and $type = "hcfpcimodem"; - /^Hsf:/ and $type = "hsflinmodem"; - /^LT:/ and $type = "ltmodem"; - $relocations{$type} || $type && $in->do_pkgs->what_provides($type) or $type = undef; - } + my $driver = $netc->{autodetect}{modem}{$modem_name}{driver}; + $driver =~ /^Hcf:/ and $type = "hcfpcimodem"; + $driver =~ /^Hsf:/ and $type = "hsflinmodem"; + $driver =~ /^LT:/ and $type = "ltmodem"; + $relocations{$type} || $type && $in->do_pkgs->what_provides($type) or $type = undef; return "no_supported_winmodem" if !$type; |