From 005d2c35b911da00661cffc315c95dbd309c0bdf Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 19 Dec 2005 13:35:19 +0000
Subject: (getSCSI_26) add a comment

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 4f00cf820..5aab1bc12 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -289,6 +289,7 @@ sub getSCSI_26() {
 	my $usb_dir = readlink("$dir/block/device") =~ m!/usb! && "$dir/block/device/../../../..";
 	my $get_usb = sub { chomp_(cat_("$usb_dir/$_[0]")) };
 
+	# handle both old and new kernels:
 	my $node =  -e "$dir/block" ? "$dir/block" : top(glob_("$dir/block*"));
 	my ($device) = readlink($node) =~ m!/block/(.*)!;
 	die "cannot get info for device ($host, $channel, $id, $lun)" if !$device;
-- 
cgit v1.2.1