From 83c16b08e3db456d383c1aed28249e46e33a0cbb Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 4 Sep 2007 16:48:20 +0000
Subject: (getSCSI) add support for tape device again (#31073)

---
 perl-install/detect_devices.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 7857ead77..d142a4963 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -199,8 +199,8 @@ sub getSCSI() {
 	my $dir = "$dev_dir/$_";
 
 	# handle both old and new kernels:
-	my $node =  -e "$dir/block" ? "$dir/block" : top(glob_("$dir/block*"));
-	my ($device) = readlink($node) =~ m!/block/(.*)!;
+	my $node =  find { -e $_ } "$dir/block", top(glob_("$dir/block*")), "$dir/tape";
+	my ($device) = readlink($node) =~ m!/(?:scsi_tape|block)/(.*)!;
 	warn("cannot get info for device ($_)"), next if !$device;
 
 	my $usb_dir = readlink("$node/device") =~ m!/usb! && "$node/device/../../../..";
-- 
cgit v1.2.1