summaryrefslogtreecommitdiffstats
path: root/perl-install/detect_devices.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/detect_devices.pm')
-rw-r--r--perl-install/detect_devices.pm22
1 files changed, 11 insertions, 11 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 4740cbe91..48eb3e68f 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -1416,17 +1416,6 @@ sub isServer() {
|| (any { $_->{'model name'} =~ /(Xeon|Opteron)/i } getCPUs());
}
-=item isHyperv()
-
-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;
-}
-
sub BIGMEM() {
arch() !~ /x86_64/ && $> == 0 && dmi_detect_memory() > 4 * 1024;
}
@@ -1482,6 +1471,17 @@ sub virt_technology() {
$tech ||= chomp_(run_program::get_stdout('systemd-detect-virt'));
}
+=item isHyperv()
+
+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;
+}
+
=item is_virtualbox()
Are we running under VirtualBox hypervisor?