summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2005-05-26 15:50:58 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2005-05-26 15:50:58 +0000
commitd24cbe628436a558331b6679879f0980dbdded5d (patch)
treee2fd5aa070b66da9b4146f7126c4816711544191 /perl-install
parent93da18e26450719c57a9f9f92e02037ac84fb82d (diff)
downloaddrakx-d24cbe628436a558331b6679879f0980dbdded5d.tar
drakx-d24cbe628436a558331b6679879f0980dbdded5d.tar.gz
drakx-d24cbe628436a558331b6679879f0980dbdded5d.tar.bz2
drakx-d24cbe628436a558331b6679879f0980dbdded5d.tar.xz
drakx-d24cbe628436a558331b6679879f0980dbdded5d.zip
(getSCSI_26) fix of by one error resulting in misdetecing USB mass
storage devices (#13569)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index e689ff7e5..a73b24598 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -270,7 +270,7 @@ sub getSCSI_26() {
$s;
};
- my $usb_dir = readlink("$dir/block/device") =~ m!/usb! && "$dir/block/device/../../..";
+ my $usb_dir = readlink("$dir/block/device") =~ m!/usb! && "$dir/block/device/../../../..";
my $get_usb = sub { chomp_(cat_("$usb_dir/$_[0]")) };
my ($device) = readlink("$dir/block") =~ m!/block/(.*)!;