From 6d6219bc192018918e6660afe83093301f968b69 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 21 Sep 2000 18:02:48 +0000
Subject: no_comment

---
 perl-install/detect_devices.pm | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index dc9f17de2..e3b70cfff 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -167,15 +167,9 @@ sub getDAC960() {
 }
 
 sub getNet() {
-    my @nets = grep { hasNetDevice($_) } @netdevices;
-    $::isStandalone ? grep { !/plip/ } @nets : @nets;
+    grep { !($::isStandalone && /plip/) && c::hasNetDevice($_) } @netdevices;
 }
 
-sub hasNet() { goto &getNet }
-sub hasEthernet() { hasNetDevice("eth0"); }
-sub hasTokenRing() { hasNetDevice("tr0"); }
-sub hasNetDevice($) { c::hasNetDevice($_[0]) }
-
 # pci_probing::main::probe with $probe_type is unsafe for pci! (bug in kernel&hardware)
 # get_pcmcia_devices provides field "device", used in network.pm
 # => probeall with $probe_type is unsafe
-- 
cgit v1.2.1