diff options
| author | Francois Pons <fpons@mandriva.com> | 2003-03-06 15:55:14 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2003-03-06 15:55:14 +0000 |
| commit | 1e7737e67bad7aae2c2541202bdbeb5301a81859 (patch) | |
| tree | 0f722c3732d530fe8f636fe59f331eecf7da4fa3 /perl-install | |
| parent | d6e7516655c684c7925e73f4d79bfe1e1f5575dd (diff) | |
| download | drakx-backup-do-not-use-1e7737e67bad7aae2c2541202bdbeb5301a81859.tar drakx-backup-do-not-use-1e7737e67bad7aae2c2541202bdbeb5301a81859.tar.gz drakx-backup-do-not-use-1e7737e67bad7aae2c2541202bdbeb5301a81859.tar.bz2 drakx-backup-do-not-use-1e7737e67bad7aae2c2541202bdbeb5301a81859.tar.xz drakx-backup-do-not-use-1e7737e67bad7aae2c2541202bdbeb5301a81859.zip | |
added support for kernel base name of ltmodem.
Diffstat (limited to 'perl-install')
| -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; } |