diff options
| -rw-r--r-- | perl-install/NEWS | 2 | ||||
| -rw-r--r-- | perl-install/detect_devices.pm | 4 |
2 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS index 26d947114..cc08b41c8 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,5 @@ +- add infrastucture for detecting vmware + Version 12.16 - 18 March 2009 - handle new drivers: 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) || |