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.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(),