From dc8c9e96aab7264968037edf5ef660888b25a9fa Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 26 Aug 2002 09:32:50 +0000
Subject: ensure net_interface is found in any case

---
 perl-install/network/shorewall.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/network')

diff --git a/perl-install/network/shorewall.pm b/perl-install/network/shorewall.pm
index 8a8c41b1c..92ac212e4 100644
--- a/perl-install/network/shorewall.pm
+++ b/perl-install/network/shorewall.pm
@@ -51,7 +51,7 @@ sub default_interfaces {
     if (@l == 1) {
 	$conf{net_interface} = $l[0];
     } else {
-	$conf{net_interface} = network::netconnect::get_net_device() or return;
+	$conf{net_interface} = network::netconnect::get_net_device() || $l[0];
 	$conf{loc_interface} = [ grep { $_ ne $conf{net_interface} } @l ];
     }
     \%conf;
-- 
cgit v1.2.1