diff options
| -rw-r--r-- | perl-install/network/netconnect.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 4f7673a56..a2e788444 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -452,6 +452,12 @@ Take a look at http://www.linmodems.org"), [ { label => N("Modem"), type => "list", val => \$modem_name, allow_empty_list => 1, list => [ keys %{$netc->{autodetect}{modem}}, N("Manual choice") ], } ], }, + complete => sub { + if ($netc->{autodetect}{modem}{$modem_name}{driver} =~ /^(LT|H[cs]f):/) { + $in->ask_warn(N("Warning"), N("Sorry, we support only 2.4 and above kernels.")); + } + return 0; + }, post => sub { $modem ||= $netcnx->{modem} ||= {};; return 'choose_serial_port' if $modem_name eq N("Manual choice"); |