From f5b64c37005cb2aa89563efe7f4d965c0a1d7440 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 23 May 2000 12:34:42 +0000
Subject: *** empty log message ***

---
 perl-install/detect_devices.pm | 2 +-
 perl-install/modules.pm        | 8 +++++---
 2 files changed, 6 insertions(+), 4 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index bed7d98ee..26a476c17 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -254,7 +254,7 @@ sub probeUSB {
     require pci_probing::main;
     require modules;
     defined($usb_interface) and return $usb_interface;
-    if (($usb_interface) = grep { /usb-/ } map { $_->[1] } pci_probing::main::probe('')) {
+    if (arch() !~ /sparc|alpha/ && ($usb_interface) = grep { /usb-/ } map { $_->[1] } pci_probing::main::probe('')) {
 	eval { modules::load($usb_interface, "SERIAL_USB") };
 	if ($@) {
 	    $usb_interface = '';
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index d4e2bcddd..881d4f512 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -553,9 +553,11 @@ sub load_thiskind($;&$) {
 	    -d "/proc/scsi/usb" or unload("usb-storage");
 	}
 	#- probe for parport SCSI.
-	foreach ("imm", "ppa") {
-	    eval { load($_, $type) };
-	    last if !$@;
+	if (arch() !~ /sparc|alpha/) {
+	    foreach ("imm", "ppa") {
+		eval { load($_, $type) };
+		last if !$@;
+	    }
 	}
 	if (my ($c) = pci_probing::main::probe('AUDIO')) {
 	    add_alias("sound", $c->[1]) if pci_probing::main::check($c->[1]);
-- 
cgit v1.2.1