diff options
Diffstat (limited to 'perl-install')
| -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 bb6a7d8e6..8b199f30e 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -737,6 +737,12 @@ You can find a driver on http://eciadsl.flashtux.org/"), [ { label => N("Net Device"), type => "list", val => \$ntf_name, list => [ sort keys %eth_intf ], allow_empty_list => 1, format => sub { $eth_intf{$_[0]} } } ]; }, + complete => sub { + if (!keys %eth_intf) { + $in->ask_warn(N("Error"), N("No network adapter on your system!")); + return 1; + }; + }, post => sub { $ethntf = $intf->{$ntf_name} ||= { DEVICE => $ntf_name }; $::isInstall && $netc->{NET_DEVICE} eq $ethntf->{DEVICE} ? 'lan_alrd_cfg' : 'lan_protocol'; |