summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2009-11-24 15:48:34 +0000
committerOlivier Blin <oblin@mandriva.com>2009-11-24 15:48:34 +0000
commit552cf229629ac7706ab5831e9a38a6d9f703ead0 (patch)
treecc19986b3d584de30bde843065ff6f7edf5b7456 /perl-install/detect_devices.pm
parent7e33219fbb9aeb7ef06dca4383bacb9951a18392 (diff)
downloaddrakx-backup-do-not-use-552cf229629ac7706ab5831e9a38a6d9f703ead0.tar
drakx-backup-do-not-use-552cf229629ac7706ab5831e9a38a6d9f703ead0.tar.gz
drakx-backup-do-not-use-552cf229629ac7706ab5831e9a38a6d9f703ead0.tar.bz2
drakx-backup-do-not-use-552cf229629ac7706ab5831e9a38a6d9f703ead0.tar.xz
drakx-backup-do-not-use-552cf229629ac7706ab5831e9a38a6d9f703ead0.zip
fix reading USB details (#55690)
Diffstat (limited to 'perl-install/detect_devices.pm')
-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 61e395dde..39717bd5a 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -216,7 +216,7 @@ sub getSCSI() {
}
warn("cannot get info for device ($_)"), next if !$device;
- my $usb_dir = readlink("$node/device") =~ m!/usb! && "$node/device/../../../..";
+ my $usb_dir = readlink("$dir") =~ m!/usb! && "$dir/../../../..";
my $get_usb = sub { chomp_(cat_("$usb_dir/$_[0]")) };
my $get = sub {