From 11b0b944ddde76b4982fa2f9e2118dcee5035f80 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 17 Aug 2000 00:39:01 +0000 Subject: no_comment --- perl-install/detect_devices.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'perl-install/detect_devices.pm') diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index a55a8b38f..5aa50aeeb 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -189,8 +189,10 @@ sub hasEthernet() { hasNetDevice("eth0"); } sub hasTokenRing() { hasNetDevice("tr0"); } sub hasNetDevice($) { c::hasNetDevice($_[0]) } -# probe_type true means detect the type of hardware, this is unsafe for pci! (bug in kernel&hardware) +# 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 +# => matching_type is unsafe sub probeall { my ($probe_type, $pcic) = @_; require pci_probing::main; @@ -243,7 +245,7 @@ sub hasUltra66 { # #- disable hasUltra66 (now included in kernel) # return; - my @l = map { $_->{verbatim} } matching_desc('(HPT|Ultra66)') or return; + my @l = map { $_->{verbatim} } matching_desc('HPT|Ultra66') or return; my $ide = sprintf "ide2=0x%x,0x%x ide3=0x%x,0x%x", @l == 2 ? -- cgit v1.2.1