summaryrefslogtreecommitdiffstats
path: root/perl-install/network/netconnect.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/network/netconnect.pm')
-rw-r--r--perl-install/network/netconnect.pm4
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 {