summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-09-06 07:58:42 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-09-06 07:58:42 +0000
commitb46d65c242162f9675aadefe532bb9f66b7e84ef (patch)
tree8a505f873c06981e74e5e77f293478c4a7303906 /perl-install
parent75af71f0dd2914044d76f601c4365bfaafe34b06 (diff)
downloaddrakx-backup-do-not-use-b46d65c242162f9675aadefe532bb9f66b7e84ef.tar
drakx-backup-do-not-use-b46d65c242162f9675aadefe532bb9f66b7e84ef.tar.gz
drakx-backup-do-not-use-b46d65c242162f9675aadefe532bb9f66b7e84ef.tar.bz2
drakx-backup-do-not-use-b46d65c242162f9675aadefe532bb9f66b7e84ef.tar.xz
drakx-backup-do-not-use-b46d65c242162f9675aadefe532bb9f66b7e84ef.zip
BIOS release date can have date DD/MM/YY (or maybe it is MM/DD/YY), only YYYY was handled
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 92b7c0b5f..ffe7ceb07 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -747,10 +747,12 @@ sub dmidecode() {
}
}
my $Chassis = $l{Chassis} =~ /^Type:\s*(\S+)/m && $1;
+ my $BIOS_Year = $l{BIOS} =~ m!^Release Date:.*?(\d{4})!m && $1 ||
+ $l{BIOS} =~ m!^Release Date:.*?\d\d/\d\d/(\d\d)!m && "20$1";
$dmidecode_infos = {
isLaptop => member($Chassis, 'Portable', 'Laptop', 'Notebook', 'Sub Notebook', 'Docking Station'),
- if_($l{BIOS} =~ /^Release Date:.*?(\d{4})/m, BIOS_Year => $1),
+ if_($BIOS_Year, BIOS_Year => $BIOS_Year),
};
}
$dmidecode_infos;