From 0c02170bc06646d71f547779a211f31435b8a6bb Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 2 Nov 2004 11:02:31 +0000 Subject: (computer_info) simplify --- perl-install/detect_devices.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'perl-install') diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index a3566739c..d596ffe90 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -806,12 +806,10 @@ sub computer_info() { my $BIOS_Year = $BIOS->{string} =~ m!^Release Date:.*?(\d{4})!m && $1 || $BIOS->{string} =~ 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_($BIOS_Year, BIOS_Year => $BIOS_Year), }; - - $dmidecode_infos; } #- try to detect a laptop, we assume pcmcia service is an indication of a laptop or -- cgit v1.2.1