From 52457bbff77a86b2e1bc58bb906b7d7e3828aea2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 19 Aug 2002 16:27:20 +0000
Subject: add scsi Optical Device recognition (thanks to Michael Riss) (without
 this, a hard drive following the optical device gets assigned sda whereas sda
 is the optical device and the hard drive really is sdb)

---
 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 51d7cd5ae..5f20432a2 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -184,7 +184,7 @@ sub getSCSI() {
     each_index {
 	my $dev = "sd" . chr($::i + ord('a'));
 	put_in_hash $_, { device => $dev, media_type => isZipDrive($_) ? 'hd' : isFloppyOrHD($dev) };
-    } grep { $_->{raw_type} =~ /Direct-Access/ } @l;
+    } grep { $_->{raw_type} =~ /Direct-Access|Optical Device/ } @l;
 
     each_index {
 	put_in_hash $_, { device => "st$::i", media_type => 'tape' };
-- 
cgit v1.2.1