summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm7
-rw-r--r--perl-install/install/NEWS1
2 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 48eb3e68f..d93333016 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -1478,8 +1478,7 @@ Are we running under Hyper-V hypervisor?
=cut
sub isHyperv() {
- dmidecode_category('System')->{Manufacturer} =~ /Microsoft Corporation/i
- && dmidecode_category('System')->{'Product Name'} =~ /Virtual Machine/i;
+ virt_technology() eq 'microsoft';
}
=item is_virtualbox()
@@ -1489,7 +1488,7 @@ Are we running under VirtualBox hypervisor?
=cut
sub is_virtualbox() {
- any { $_->{driver} eq 'vboxadd' } detect_devices::pci_probe();
+ virt_technology() eq 'oracle';
}
=item is_vmware()
@@ -1499,7 +1498,7 @@ Are we running under VMware hypervisor?
=cut
sub is_vmware() {
- any { $_->{driver} =~ /Card:VMware/ } detect_devices::pci_probe();
+ virt_technology() eq 'vmware';
}
=item is_netbook_nettop()
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 2fe73efb8..c62919fe3 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,4 +1,5 @@
- fix build on ia32
+- use systemd-detect-virt for detecting virtualization technology
Version 17.23 - 22 March 2016