From 9b8dddbc720899a7872d82e39405997ab6949df4 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 25 Aug 1999 09:47:06 +0000
Subject: no_comment

---
 perl-install/detect_devices.pm | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

(limited to 'perl-install/detect_devices.pm')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index d226d033b..327f12754 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -128,12 +128,8 @@ sub getDAC960() {
 }
 
 
-sub getNet() {
-    # I should probably ask which device to use if multiple ones are available -- oh well :-( 
-    foreach (qw(eth0 tr0 plip0 plip1 plip2 fddi0)) {
-	hasNetDevice($_) and log::l("$_ is available -- using it for networking"), return $_;
-    }
-    undef;
+sub getNet() { 
+    grep { hasNetDevice($_) } qw(eth0 tr0 plip0 plip1 plip2 fddi0);
 }
 sub getPlip() {
     foreach (0..2) {
-- 
cgit v1.2.1