From f17e17f9e6ba006134cdf5f8386dd5f596394b2a Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 20 Mar 2009 14:32:23 +0000 Subject: (is_vmware) add infrastucture for detecting vmware --- perl-install/detect_devices.pm | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'perl-install/detect_devices.pm') diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 35349ee7c..78348856f 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -1099,6 +1099,10 @@ sub is_virtualbox() { any { $_->{driver} eq 'vboxadd' } detect_devices::pci_probe(); } +sub is_vmware() { + any { $_->{driver} =~ /Card:VMware/ } detect_devices::pci_probe(); +} + sub is_netbook_nettop() { my @cpus = getCPUs(); (any { $_->{'model name'} =~ /(\bIntel\(R\) Atom\(TM\)\B)/i } @cpus) || -- cgit v1.2.1