summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2016-04-23 14:31:15 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-04-23 14:31:41 +0200
commit8de9dced1b230c5ebda93413748d9f5f694af8d4 (patch)
tree47f249e180f3470c885210b6cfdbec5e3b1fa53f /perl-install
parentb7658c807eaa25c7e4ff2eb68481de175c2edd68 (diff)
downloaddrakx-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.pm6
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(),