From c3469dbbba8df03e28b992a1a1467a047241ca10 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 19 Jul 2002 21:18:19 +0000 Subject: help perl_checker --- perl-install/detect_devices.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') 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, -- cgit v1.2.1