do not allow to step forward if no network card was found (workaround

#7672). we'd better be able to manually add an unsupported network
card though.

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';