From 1e7737e67bad7aae2c2541202bdbeb5301a81859 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Thu, 6 Mar 2003 15:55:14 +0000 Subject: added support for kernel base name of ltmodem. --- perl-install/network/modem.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'perl-install/network') 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; } -- cgit v1.2.1