From ce5fcac08fdb9a55368455c44579e6523c2584bc Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 31 Jan 2012 17:51:29 +0000
Subject: (dmidecode) fix crashing on parsing garbaged DMI info (mga#4329)

---
 perl-install/NEWS              | 1 +
 perl-install/detect_devices.pm | 1 +
 2 files changed, 2 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 346f7ff06..d29661cb4 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,4 +1,5 @@
 - make drakclock systemd compatible 
+- fix crashing on parsing garbaged DMI info (mga#4329)
 - diskdrake:
   o use better cipher for encrypted fses (mga#3092)
 
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 3c2fe0065..8cc4935d3 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -1081,6 +1081,7 @@ sub dmidecode() {
     }
 
     foreach (@l) {
+	next if /TRUNCATED/;
 	if (/^$tab\t(.*)/) {
 	    $dmis[-1]{string} .= "$1\n";
 	    $dmis[-1]{$1} = $2 if /^$tab\t(.*): (.*)$/;
-- 
cgit v1.2.1