summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-23 15:34:55 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-23 15:34:55 +0000
commit5dfcfb254909e0760b7ffe937f829ed8dffa900f (patch)
tree3fe03e73f10b1d64d3b785932032cd00c270249f
parent1d7e1ce138635b9cc21e697a2f75ee07d879b990 (diff)
downloaddrakx-5dfcfb254909e0760b7ffe937f829ed8dffa900f.tar
drakx-5dfcfb254909e0760b7ffe937f829ed8dffa900f.tar.gz
drakx-5dfcfb254909e0760b7ffe937f829ed8dffa900f.tar.bz2
drakx-5dfcfb254909e0760b7ffe937f829ed8dffa900f.tar.xz
drakx-5dfcfb254909e0760b7ffe937f829ed8dffa900f.zip
handle computers with no /proc/scsi/scsi
-rw-r--r--perl-install/detect_devices.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 7740f9852..235e4945d 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -168,7 +168,7 @@ sub isFloppyOrHD {
sub getSCSI() {
my $err = sub { log::l("ERROR: unexpected line in /proc/scsi/scsi: $_[0]"); };
- my ($first, @l) = common::join_lines(cat_("/proc/scsi/scsi"));
+ my ($first, @l) = common::join_lines(cat_("/proc/scsi/scsi")) or return;
$first =~ /^Attached devices:/ or $err->($first);
@l = map_index {