diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-19 21:18:19 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-19 21:18:19 +0000 |
| commit | c3469dbbba8df03e28b992a1a1467a047241ca10 (patch) | |
| tree | 36e0b689f60ff50722968a88050de99e57576711 | |
| parent | a5e8813b59dc1133c8fda0ec1493e2622a77624d (diff) | |
| download | drakx-backup-do-not-use-c3469dbbba8df03e28b992a1a1467a047241ca10.tar drakx-backup-do-not-use-c3469dbbba8df03e28b992a1a1467a047241ca10.tar.gz drakx-backup-do-not-use-c3469dbbba8df03e28b992a1a1467a047241ca10.tar.bz2 drakx-backup-do-not-use-c3469dbbba8df03e28b992a1a1467a047241ca10.tar.xz drakx-backup-do-not-use-c3469dbbba8df03e28b992a1a1467a047241ca10.zip | |
help perl_checker
| -rw-r--r-- | perl-install/detect_devices.pm | 2 |
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, |