From b7e70f713e4f3ac374820ef380f95892abbf50fc Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 11 Aug 2009 12:37:36 +0000
Subject: (dmidecode) fix parsing dmidecode output (broken since we use
 dmidecode-2.10, aka since November 24 2008)

Pixel: I hate you!
---
 perl-install/detect_devices.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 0c36dbfcc..8df493152 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -1019,7 +1019,10 @@ sub dmidecode() {
     my ($ver, @l) = run_program::get_stdout('dmidecode');
 
     my $tab = "\t";
-    if ($ver =~ /(\d+\.\d+)/ && $1 >= 2.7) {
+
+    my ($major, $minor) = $ver =~ /(\d+)\.(\d+)/;
+
+    if ($major > 2 || $major == 2 && $minor >7) {
 	#- new dmidecode output is less indented
 	$tab = '';
 	#- drop header
-- 
cgit v1.2.1