summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-08-19 21:31:24 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-08-19 21:31:24 +0000
commit454822a9c2d377a5b8001926d3f817bbbf866016 (patch)
tree972357ece089b766b7585afd228c7b536581d01d /perl-install
parenta0f9c37e204280957edc334713683ef52e6bdf5d (diff)
downloaddrakx-454822a9c2d377a5b8001926d3f817bbbf866016.tar
drakx-454822a9c2d377a5b8001926d3f817bbbf866016.tar.gz
drakx-454822a9c2d377a5b8001926d3f817bbbf866016.tar.bz2
drakx-454822a9c2d377a5b8001926d3f817bbbf866016.tar.xz
drakx-454822a9c2d377a5b8001926d3f817bbbf866016.zip
pci hardware discovery: do full-probe by default
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/c/stuff.xs.pl5
-rw-r--r--perl-install/commands.pm2
-rw-r--r--perl-install/detect_devices.pm10
3 files changed, 7 insertions, 10 deletions
diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl
index 497d60c19..d65afeeb2 100644
--- a/perl-install/c/stuff.xs.pl
+++ b/perl-install/c/stuff.xs.pl
@@ -356,10 +356,9 @@ int
detectSMP()
void
-pci_probe(probe_type)
- int probe_type
+pci_probe()
PPCODE:
- struct pciusb_entries entries = pci_probe(probe_type);
+ struct pciusb_entries entries = pci_probe();
char buf[2048];
int i;
diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index 77991a0e0..bf61ac05d 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -443,7 +443,7 @@ sub kill {
sub lspci() {
require detect_devices;
- print join "\n", detect_devices::stringlist(1), '';
+ print join "\n", detect_devices::stringlist(), '';
}
*lssbus = \&lspci;
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index dadf0f3a0..2746a480d 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -465,16 +465,14 @@ sub add_addons {
@l;
}
-sub pci_probe {
- my ($probe_type) = @_;
- log::l("full pci_probe") if $probe_type;
+sub pci_probe() {
add_addons($pcitable_addons, map {
my %l;
@l{qw(vendor id subvendor subid pci_bus pci_device pci_function media_type driver description)} = split "\t";
$l{$_} = hex $l{$_} foreach qw(vendor id subvendor subid);
$l{bus} = 'PCI';
\%l
- } c::pci_probe($probe_type || 0));
+ } c::pci_probe());
}
sub usb_probe() {
@@ -516,7 +514,7 @@ sub matching_desc {
my ($regexp) = @_;
grep { $_->{description} =~ /$regexp/i } probeall();
}
-sub stringlist {
+sub stringlist() {
map {
sprintf("%-16s: %s%s%s",
$_->{driver} || 'unknown',
@@ -524,7 +522,7 @@ sub stringlist {
$_->{media_type} ? sprintf(" [%s]", $_->{media_type}) : '',
$_->{subid} && $_->{subid} != 0xffff ? sprintf(" SubVendor=0x%04x SubDevice=0x%04x", $_->{subvendor}, $_->{subid}) : '',
)
- } probeall(@_);
+ } probeall;
}
sub tryOpen($) {