diff options
| -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, |