From de7d4baf2978f851c572282fe54355c94c69259e Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 19 May 2000 17:15:36 +0000
Subject: *** empty log message ***

---
 perl-install/detect_devices.pm | 3 +++
 1 file changed, 3 insertions(+)

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index ad35871cc..bed7d98ee 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -112,6 +112,9 @@ sub getSCSI() {
 sub getIDE() {
     my @idi;
 
+    #- what about a system with absolutely no IDE on it, like some sparc machine.
+    hasIDE() or return ();
+
     #- Great. 2.2 kernel, things are much easier and less error prone.
     foreach my $d (sort @{[glob_('/proc/ide/hd*')]}) {
 	my ($t) = chop_(cat_("$d/media"));
-- 
cgit v1.2.1