diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/any.pm | 2 | ||||
| -rw-r--r-- | perl-install/detect_devices.pm | 7 |
2 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 70ce7a6c8..fb73df348 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -1254,7 +1254,7 @@ sub report_bug { join '', map { chomp; "$_\n" } header("lspci"), detect_devices::stringlist(), header("pci_devices"), cat_("/proc/bus/pci/devices"), - header("dmidecode"), `dmidecode`, + header("dmidecode"), arch() =~ /86/ ? `dmidecode` : (), header("fdisk"), arch() =~ /ppc/ ? `pdisk -l` : `fdisk -l`, header("scsi"), cat_("/proc/scsi/scsi"), header("/sys/bus/scsi/devices"), -d '/sys/bus/scsi/devices' ? `ls -l /sys/bus/scsi/devices` : (), diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 42f14aff6..89698fd99 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -943,9 +943,14 @@ sub pcmcia_probe() { my $dmi_probe; sub dmi_probe() { + if (arch() !~ /86/) { + $dmi_probe ||= []; + } + else { $dmi_probe ||= [ map { /(.*?)\t(.*)/ && { bus => 'DMI', driver => $1, description => $2 }; } $> ? () : c::dmi_probe() ]; + } @$dmi_probe; } @@ -1045,7 +1050,7 @@ sub dmidecode() { return @dmis if $dmidecode_already_runned; return if $>; - my ($ver, @l) = run_program::get_stdout('dmidecode'); + my ($ver, @l) = arch() =~ /86/ ? run_program::get_stdout('dmidecode') : (); my $tab = "\t"; |