summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-11-02 11:02:31 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-11-02 11:02:31 +0000
commit0c02170bc06646d71f547779a211f31435b8a6bb (patch)
tree1418f5d0c3dd55f4a1d4b5476211e351095a6039 /perl-install
parent3e47cfe86d6f8b108818e22c25cfc321c6a16a33 (diff)
downloaddrakx-0c02170bc06646d71f547779a211f31435b8a6bb.tar
drakx-0c02170bc06646d71f547779a211f31435b8a6bb.tar.gz
drakx-0c02170bc06646d71f547779a211f31435b8a6bb.tar.bz2
drakx-0c02170bc06646d71f547779a211f31435b8a6bb.tar.xz
drakx-0c02170bc06646d71f547779a211f31435b8a6bb.zip
(computer_info) simplify
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm4
1 files changed, 1 insertions, 3 deletions
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