From c04b43436a2a3111ea9406a319c08b499bd67b43 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 16 Mar 2004 14:50:42 +0000 Subject: make it clear these checks are only for pci modems --- perl-install/network/netconnect.pm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'perl-install') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 56fdbe7a7..c43565c0d 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -469,11 +469,12 @@ Take a look at http://www.linmodems.org"), my %relocations = (ltmodem => $in->do_pkgs->check_kernel_module_packages('ltmodem')); my $type; - 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; + if (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; -- cgit v1.2.1