From 2b8d0cf768d5e50ecac905a0f0b002f3877a6d41 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 3 Feb 2006 17:12:32 +0000 Subject: oops, perl_checker compliance --- perl-install/detect_devices.pm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'perl-install') diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 1f797fccf..0d516ed3a 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -933,12 +933,9 @@ sub dmidecode_category { sub dmi_detect_memory() { my @l1 = map { $_->{'Enabled Size'} =~ /(\d+) MB/ && $1 } dmidecode_category('Memory Module'); my @l2 = map { $_->{'Form Factor'} =~ /^(SIMM|SIP|DIP|DIMM|RIMM|SODIMM|SRIMM)$/ && - ($_->{Size} =~ /(\d+) MB/ && $1 || $_->{Size} =~ /(\d+) kB/ && $1 * 1024) + ($_->{Size} =~ /(\d+) MB/ && $1 || $_->{Size} =~ /(\d+) kB/ && $1 * 1024); } dmidecode_category('Memory Device'); - my $s1 = join(' ', grep {$_} @l1); - my $s2 = join(' ', grep {$_} @l2); - warn "$s1 <|> $s2\n" if $s1 && $s2 && $s1 ne $s2; - max(sum(@l1), sum(@l2)) + max(sum(@l1), sum(@l2)); } sub computer_info() { -- cgit v1.2.1