diff options
Diffstat (limited to 'perl-install/detect_devices.pm')
| -rw-r--r-- | perl-install/detect_devices.pm | 3 |
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")); |