From 7fd8837081f5f994e7da776103fb2acff5c507ca Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 7 Nov 2002 16:14:03 +0000 Subject: - getCPUs() : fix cpu fields parsing - harddrake::detect : o describe most cpu fields o print value of skipped fields --- perl-install/detect_devices.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/detect_devices.pm') diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 6072d8d60..ce7ceab7e 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -363,7 +363,7 @@ sub getCPUs { push @cpus, $cpu if $cpu; $cpu = {}; } - /(\S*)\s*:\s*(\S*)/; + /^([^\t]*).*:\s(.*)$/; $cpu->{$1} = $2 if $1; } push @cpus, $cpu; -- cgit v1.2.1