diff options
| -rw-r--r-- | perl-install/network/modem.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm index 9b937cc3a..35de4b13e 100644 --- a/perl-install/network/modem.pm +++ b/perl-install/network/modem.pm @@ -250,19 +250,20 @@ sub ppp_choose { #- TODO: add choice between hcf/hsf/lt ? sub winmodemConfigure { my ($in, $netc) = @_; + my %relocations = ( ltmodem => $in->do_pkgs->check_kernel_module_packages('ltmodem_') ); my $type; foreach (keys %{$netc->{autodetect}{winmodem}}) { /Hcf/ and $type = "hcfpcimodem"; /Hsf/ and $type = "hsflinmodem"; /LT/ and $type = "ltmodem"; - $type && $in->do_pkgs->what_provides($type) or $type = undef; + $relocations{$type} || $type && $in->do_pkgs->what_provides($type) or $type = undef; } $type || $in->ask_warn(N("Warning"), N("Your modem isn't supported by the system. Take a look at http://www.linmodems.org")) && return 1; my $e = $in->ask_from_list(N("Title"), N("\"%s\" based winmodem detected, do you want to install needed software ?", $type), [N("Install rpm"), N("Do nothing")]) or return 0; - $e =~ /rpm/ ? $in->do_pkgs->install($type) : return 1; + $e =~ /rpm/ ? $in->do_pkgs->install($relocations{$type} ? @{$relocations{type}} : $type) : return 1; 1; } |