From d1802bfd39bdba8ffa3919f7377150c171e531da Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 11 Dec 2012 16:42:05 +0000 Subject: perl_checker cleanup --- perl-install/detect_devices.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index a0c6a8c23..7cfdf31c6 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -1155,8 +1155,8 @@ sub isServer() { } sub isHyperv() { - dmidecode_category('System')->{'Manufacturer'} =~ /Microsoft Corporation/i - && dmidecode_category('System')->{'Product Name'} =~ /Virtual Machine/i + dmidecode_category('System')->{Manufacturer} =~ /Microsoft Corporation/i + && dmidecode_category('System')->{'Product Name'} =~ /Virtual Machine/i; } sub BIGMEM() { -- cgit v1.2.1