summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-05-19 17:15:36 +0000
committerFrancois Pons <fpons@mandriva.com>2000-05-19 17:15:36 +0000
commitde7d4baf2978f851c572282fe54355c94c69259e (patch)
tree1b17e14b7dfbeca165e18120a2bfbd2cc16e0727 /perl-install/detect_devices.pm
parent36b067adfbe069090b8593cbfa9c8c2e5f016656 (diff)
downloaddrakx-backup-do-not-use-de7d4baf2978f851c572282fe54355c94c69259e.tar
drakx-backup-do-not-use-de7d4baf2978f851c572282fe54355c94c69259e.tar.gz
drakx-backup-do-not-use-de7d4baf2978f851c572282fe54355c94c69259e.tar.bz2
drakx-backup-do-not-use-de7d4baf2978f851c572282fe54355c94c69259e.tar.xz
drakx-backup-do-not-use-de7d4baf2978f851c572282fe54355c94c69259e.zip
*** empty log message ***
Diffstat (limited to 'perl-install/detect_devices.pm')
-rw-r--r--perl-install/detect_devices.pm3
1 files changed, 3 insertions, 0 deletions
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"));