summaryrefslogtreecommitdiffstats
path: root/perl-install/commands.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-07-23 22:15:54 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-07-23 22:15:54 +0000
commitd97b226e3049c136401416aaceaba39587cd0605 (patch)
treefa094813196f6d3f8615c3f999d116cf1566ca08 /perl-install/commands.pm
parentf01f53d988172e9d5bf52e969dd404dc48458000 (diff)
downloaddrakx-d97b226e3049c136401416aaceaba39587cd0605.tar
drakx-d97b226e3049c136401416aaceaba39587cd0605.tar.gz
drakx-d97b226e3049c136401416aaceaba39587cd0605.tar.bz2
drakx-d97b226e3049c136401416aaceaba39587cd0605.tar.xz
drakx-d97b226e3049c136401416aaceaba39587cd0605.zip
no_comment
Diffstat (limited to 'perl-install/commands.pm')
-rw-r--r--perl-install/commands.pm14
1 files changed, 6 insertions, 8 deletions
diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index 467cdfa4b..f2ec0d154 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -514,13 +514,11 @@ sub kill {
}
sub lspci {
- require pci_probing::main;
- print join "\n", pci_probing::main::list (), '';
-}
-sub lssbus {
- require sbus_probing::main;
- print join "\n", sbus_probing::main::list (), '';
+ require detect_devices;
+ print join "\n", detect_devices::stringlist(), '';
}
+*lssbus = *lspci;
+
sub dmesg { print cat_("/tmp/syslog"); }
sub sort {
@@ -575,11 +573,11 @@ sub bug {
* $_[0]
********************************************************************************";
}
- require pci_probing::main;
+ require detect_devices;
local $\ = "\n";
output "/fd0/report.bug", map { chomp; $_ }
- header("lspci"), pci_probing::main::list(),
+ header("lspci"), detect_devices::stringlist(),
header("pci_devices"), cat_("/proc/bus/pci/devices"),
header("fdisk"), `fdisk -l`,
header("scsi"), cat_("/proc/scsi/scsi"),