From 034540283ee7a0e6e29a20687f6e97121330df70 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Sat, 23 Apr 2016 14:32:47 +0200
Subject: add 'qemu' flag for rpmsrate

---
 perl-install/detect_devices.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'perl-install/detect_devices.pm')

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index e77a57479..770cbbdde 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -1481,6 +1481,16 @@ sub is_hyperv() {
     virt_technology() eq 'microsoft';
 }
 
+=item is_qemu()
+
+Are we running under Qemu hypervisor?
+
+=cut
+
+sub is_qemu() {
+    virt_technology() eq 'microsoft';
+}
+
 =item is_virtualbox()
 
 Are we running under VirtualBox hypervisor?
@@ -1560,6 +1570,7 @@ sub matching_types() {
 	mips_st_ls2f => is_mips_st_ls2f(),
 	numpa => hasNumpad(),
 	touchpad => hasTouchpad(),
+	qemu => is_qemu(),
 	virtualbox => is_virtualbox(),
 	vmware => is_vmware(),
 	wireless => to_bool(get_wireless_interface() || probe_category('network/wireless')),
-- 
cgit v1.2.1