From 7af00be13aa97e120426fc1cd260f4a71f3c8078 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 10 Sep 2001 13:05:21 +0000 Subject: fix ide-scsi appearing 2 times when standalone because both in /proc/ide and /proc/scsi/scsi --- perl-install/detect_devices.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'perl-install') diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index f98e1034a..8d26f3cd5 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -153,6 +153,7 @@ sub getIDE() { #- Great. 2.2 kernel, things are much easier and less error prone. foreach my $d (sort @{[glob_('/proc/ide/hd*')]}) { + cat_("$d/driver") =~ /ide-scsi/ and next; #- already appears in /proc/scsi/scsi my $t = chomp_(cat_("$d/media")); my $type = $ {{disk => 'hd', cdrom => 'cdrom', tape => 'tape', floppy => 'fd'}}{$t} or next; my $info = chomp_(cat_("$d/model")) || "(none)"; -- cgit v1.2.1