diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-04-23 14:31:15 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2016-04-23 14:31:41 +0200 |
| commit | 8de9dced1b230c5ebda93413748d9f5f694af8d4 (patch) | |
| tree | 47f249e180f3470c885210b6cfdbec5e3b1fa53f /perl-install | |
| parent | b7658c807eaa25c7e4ff2eb68481de175c2edd68 (diff) | |
| download | drakx-8de9dced1b230c5ebda93413748d9f5f694af8d4.tar drakx-8de9dced1b230c5ebda93413748d9f5f694af8d4.tar.gz drakx-8de9dced1b230c5ebda93413748d9f5f694af8d4.tar.bz2 drakx-8de9dced1b230c5ebda93413748d9f5f694af8d4.tar.xz drakx-8de9dced1b230c5ebda93413748d9f5f694af8d4.zip | |
rename isHyperv() as is_hyperv()
like other is_*() virt functions...
Diffstat (limited to 'perl-install')
| -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(), |