From f2c9aaef837eceaebbc643f77492fce69fb32f3f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 19 Aug 2003 19:34:35 +0000
Subject: full pci probe does not freeze anymore, removing code work-arounding
 the freeze

---
 perl-install/detect_devices.pm | 19 +++++--------------
 1 file changed, 5 insertions(+), 14 deletions(-)

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 57dd842f1..dadf0f3a0 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -406,15 +406,15 @@ sub getSerialModem {
 }
 
 sub getModem() {
-    my @pci_modems = grep { $_->{driver} =~ /www.linmodems.org/ } probeall(0);
+    my @pci_modems = grep { $_->{driver} =~ /www.linmodems.org/ } probeall();
     getSerialModem({}), @pci_modems;
 }
 
 sub getSpeedtouch() {
-    grep { $_->{description} eq 'Alcatel|USB ADSL Modem (Speed Touch)' } probeall(0);
+    grep { $_->{description} eq 'Alcatel|USB ADSL Modem (Speed Touch)' } probeall();
 }
 sub getSagem() {
-    grep { $_->{description} eq 'Analog Devices Inc.|USB ADSL modem' } probeall(0);
+    grep { $_->{description} eq 'Analog Devices Inc.|USB ADSL modem' } probeall();
 }
 
 sub getNet() {
@@ -504,16 +504,13 @@ sub pcmcia_probe() {
     @devs;
 }
 
-# pci_probe with $probe_type is unsafe for pci! (bug in kernel&hardware)
 # pcmcia_probe provides field "device", used in network.pm
 # => probeall with $probe_type is unsafe
-sub probeall {
-    my ($probe_type) = @_;
-
+sub probeall() {
     return if $::noauto;
 
     require sbus_probing::main;
-    pci_probe($probe_type), usb_probe(), pcmcia_probe(), sbus_probing::main::probe();
+    pci_probe(), usb_probe(), pcmcia_probe(), sbus_probing::main::probe();
 }
 sub matching_desc {
     my ($regexp) = @_;
@@ -676,12 +673,6 @@ sub raidAutoStart {
     }
 }
 
-sub is_a_recent_computer() {
-    my ($frequence) = map { /cpu MHz\s*:\s*(.*)/ } cat_("/proc/cpuinfo");
-    $frequence > 600;
-}
-
-
 sub usb_description2removable {
     local ($_) = @_;
     return 'camera' if /\bcamera\b/i;
-- 
cgit v1.2.1