From d97b226e3049c136401416aaceaba39587cd0605 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 23 Jul 2000 22:15:54 +0000 Subject: no_comment --- perl-install/commands.pm | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) (limited to 'perl-install/commands.pm') 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"), -- cgit v1.2.1