From 6b69393d2b0c2911f486ca6c0046ccf6e1a3f238 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 18 Aug 2000 05:44:25 +0000
Subject: no_comment

---
 perl-install/detect_devices.pm | 20 --------------------
 1 file changed, 20 deletions(-)

(limited to 'perl-install/detect_devices.pm')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 54893ade3..a5d15dbd9 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -273,26 +273,6 @@ sub whatPrinterPort() {
     grep { tryWrite($_)} qw(/dev/lp0 /dev/lp1 /dev/lp2 /dev/usb/lp0);
 }
 
-sub probeUSB {
-    require modules;
-    defined($usb_interface) and return $usb_interface;
-    arch() =~ /sparc/ and return $usb_interface = '';
-    if (($usb_interface) = grep { /usb-/ } map { $_->{driver} } probeall()) {
-	eval { modules::load($usb_interface, "SERIAL_USB") };
-	if ($@) {
-	    $usb_interface = '';
-	} else {
-	    eval {
-		modules::load("usbkbd");
-		modules::load("keybdev");
-	    };
-	}
-    } else {
-	$usb_interface = '';
-    }
-    $usb_interface;
-}
-
 sub probeSerialDevices {
     #- make sure the device are created before probing.
     foreach (0..3) { devices::make("/dev/ttyS$_") }
-- 
cgit v1.2.1