From b46d65c242162f9675aadefe532bb9f66b7e84ef Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 6 Sep 2004 07:58:42 +0000 Subject: BIOS release date can have date DD/MM/YY (or maybe it is MM/DD/YY), only YYYY was handled --- perl-install/detect_devices.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perl-install') 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; -- cgit v1.2.1