From 8016763831a75b63a692b9b9d1190a13a1b0899b Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 26 Mar 2004 11:15:08 +0000 Subject: warn than speedtouch only works with 2.4.x kernels for now --- perl-install/network/netconnect.pm | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index d02e3baf1..e24e7d9fa 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -650,6 +650,12 @@ killall pppd name => N("ADSL configuration") . "\n\n" . N("Select the network interface to configure:"), 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 { + if (c::kernel_version() !~ /^\Q2.4/ && $ntf_name eq 'speedtouch') { + $in->ask_warn(N("Warning"), N("Sorry, we support only 2.4 and above kernels.")); + } + return 0; + }, post => sub { my %packages = ( 'eci' => [ 'eciadsl', 'missing' ], -- cgit v1.2.1