From a419039b11d02b7ef2b7f894b199b245a7876303 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 30 Apr 2003 10:09:27 +0000
Subject: perl_checker compliance

---
 perl-install/detect_devices.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'perl-install/detect_devices.pm')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index dde0ce63f..57dd842f1 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -368,8 +368,7 @@ sub getCPUs() {
 		  push @cpus, $cpu if $cpu;
 		  $cpu = {};
 	   }
-	   /^([^\t]*).*:\s(.*)$/;
-	   $cpu->{$1} = $2 if $1;
+	   $cpu->{$1} = $2 if /^([^\t]+).*:\s(.*)$/;
     }
     push @cpus, $cpu;
     @cpus;
-- 
cgit v1.2.1