summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-19 21:18:19 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-19 21:18:19 +0000
commitc3469dbbba8df03e28b992a1a1467a047241ca10 (patch)
tree36e0b689f60ff50722968a88050de99e57576711 /perl-install
parenta5e8813b59dc1133c8fda0ec1493e2622a77624d (diff)
downloaddrakx-c3469dbbba8df03e28b992a1a1467a047241ca10.tar
drakx-c3469dbbba8df03e28b992a1a1467a047241ca10.tar.gz
drakx-c3469dbbba8df03e28b992a1a1467a047241ca10.tar.bz2
drakx-c3469dbbba8df03e28b992a1a1467a047241ca10.tar.xz
drakx-c3469dbbba8df03e28b992a1a1467a047241ca10.zip
help perl_checker
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 5d8915ea4..0c4b2f82e 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -172,7 +172,7 @@ sub getSCSI() {
$first =~ /^Attached devices:/ or $err->($first);
@l = map_index {
- my ($host, $channel, $id, $lun) = /^Host: scsi(\d+) Channel: (\d+) Id: (\d+) Lun: (\d+)/ or $err->($_);
+ my ($host, $channel, $id, $lun) = m/^Host: scsi(\d+) Channel: (\d+) Id: (\d+) Lun: (\d+)/ or $err->($_);
my ($vendor, $model) = /^\s*Vendor:\s*(.*?)\s+Model:\s*(.*?)\s+Rev:/m or $err->($_);
my ($type) = /^\s*Type:\s*(.*)/m or $err->($_);
{ info => "$vendor $model", channel => $channel, id => $id, lun => $lun,