summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS2
-rw-r--r--perl-install/detect_devices.pm5
-rw-r--r--perl-install/install/NEWS2
3 files changed, 8 insertions, 1 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 768fb408a..b15a39d78 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,5 @@
+- fix parsing dmidecode output (broken since we use dmidecode-2.10,
+ aka since November 24 2008)
- localedrake
o add "English (South Africa)" (#51057)
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
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 33b9d385e..17fc64d56 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- fix parsing dmidecode output (broken since we use dmidecode-2.10,
+ aka since November 24 2008)
- locales
o add "English (South Africa)" (#51057)
o fix sorting South Africa languages (#51055)