From 6a0d35b30f62a5b62211594c82982733fc9803bf Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 18 Mar 2004 09:59:46 +0000 Subject: only warn about the fact we need 2.4.x kernel when we're under 2.6.x --- perl-install/network/netconnect.pm | 4 ++-- 1 file 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 { -- cgit v1.2.1