From 5dfcfb254909e0760b7ffe937f829ed8dffa900f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 23 Jul 2002 15:34:55 +0000
Subject: handle computers with no /proc/scsi/scsi

---
 perl-install/detect_devices.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

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 {
-- 
cgit v1.2.1