diff options
| -rw-r--r-- | perl-install/detect_devices.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index e38a1b969..e77a57479 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -1471,13 +1471,13 @@ sub virt_technology() { $tech ||= chomp_(run_program::get_stdout('systemd-detect-virt')); } -=item isHyperv() +=item is_hyperv() Are we running under Hyper-V hypervisor? =cut -sub isHyperv() { +sub is_hyperv() { virt_technology() eq 'microsoft'; } @@ -1553,7 +1553,7 @@ Returns a hash of flags (laptop, hyperv, touchpad, 64bit, wireless, ...) sub matching_types() { +{ '64bit' => to_bool(arch() =~ /64/), - hyperv => isHyperv(), + hyperv => is_hyperv(), laptop => isLaptop(), mips_ict => is_mips_ict(), mips_lemote => is_mips_lemote(), |