summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/network/netconnect.pm6
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';