From ebd589dd4624dfa3b8d3f0862bd26186c4964c9c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 4 Sep 2007 16:57:22 +0000 Subject: (getSCSI) set "media_type" as "generic" for generic SCSI devices --- 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 981bd9d6b..49690f23f 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -216,7 +216,7 @@ sub getSCSI() { # (see linux/include/scsi/scsi.h and sans-find-scanner.1) my $raw_type = $scsi_types[$get->('type')]; - my $media_type = ${{ st => 'tape', sr => 'cdrom', sd => 'hd' }}{substr($device, 0, 2)} || + my $media_type = ${{ st => 'tape', sr => 'cdrom', sd => 'hd', sg => 'generic' }}{substr($device, 0, 2)} || $raw_type =~ /Scanner|Processor/ && 'scanner'; push @l, { info => $get->('vendor') . ' ' . $get->('model'), host => $host, channel => $channel, id => $id, lun => $lun, -- cgit v1.2.1