diff options
author | Thierry Vignaud <tv@mandriva.org> | 2009-08-11 12:41:57 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mandriva.org> | 2009-08-11 12:41:57 +0000 |
commit | e835ceab505e53e51cd9350fbab3f32889e86459 (patch) | |
tree | 9e1613c8684653dd3eb809fad10225c42c9831b6 /perl-install/detect_devices.pm | |
parent | 5a46e9b649bebef3e11e1a0459c27c71d7736e6e (diff) | |
download | drakx-e835ceab505e53e51cd9350fbab3f32889e86459.tar drakx-e835ceab505e53e51cd9350fbab3f32889e86459.tar.gz drakx-e835ceab505e53e51cd9350fbab3f32889e86459.tar.bz2 drakx-e835ceab505e53e51cd9350fbab3f32889e86459.tar.xz drakx-e835ceab505e53e51cd9350fbab3f32889e86459.zip |
(dmidecode) fix parsing dmidecode output (broken since we use
dmidecode-2.10, aka since November 24 2008)
Pixel: I hate you!
(backported from trunk)
Diffstat (limited to 'perl-install/detect_devices.pm')
-rw-r--r-- | perl-install/detect_devices.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index ce6c8e029..2d4f1db85 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -1013,7 +1013,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 |