diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/netconnect.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 52cf9625b..a402f014b 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -453,7 +453,7 @@ Take a look at http://www.linmodems.org"), list => [ keys %{$netc->{autodetect}{modem}}, N("Manual choice") ], } ], }, complete => sub { - if ($netc->{autodetect}{modem}{$modem_name}{driver} =~ /^(LT|H[cs]f):/) { + if ($netc->{autodetect}{modem}{$modem_name}{driver} =~ /^(LT|H[cs]f):/ && c::kernel_version() !~ /^\Q2.4/) { $in->ask_warn(N("Warning"), N("Sorry, we support only 2.4 and above kernels.")); } return 0; @@ -638,7 +638,7 @@ killall pppd data => [ { label => N("Net Device"), type => "list", val => \$ntf_name, allow_empty_list => 1, list => \@adsl_devices, format => sub { $eth_intf{$_[0]} || $adsl_devices{$_[0]} } } ], complete => sub { - $in->ask_warn(N("Warning"), N("Sorry, we support only 2.4 and above kernels.")); + $in->ask_warn(N("Warning"), N("Sorry, we support only 2.4 and above kernels.")) if c::kernel_version() !~ /^\Q2.4/; return 0; }, post => sub { |