From 8de9dced1b230c5ebda93413748d9f5f694af8d4 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Sat, 23 Apr 2016 14:31:15 +0200 Subject: rename isHyperv() as is_hyperv() like other is_*() virt functions... --- perl-install/detect_devices.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install') 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(), -- cgit v1.2.1