summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2016-03-23 17:49:59 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2016-03-23 18:17:11 +0100
commit059439095315cef7bc965108d7edb96dd30b240e (patch)
treef515d5502487f1cb7e35bef812cede3a5a7371e0 /perl-install
parentf37a116e85ce6929ef284270877db94c26207f39 (diff)
downloaddrakx-059439095315cef7bc965108d7edb96dd30b240e.tar
drakx-059439095315cef7bc965108d7edb96dd30b240e.tar.gz
drakx-059439095315cef7bc965108d7edb96dd30b240e.tar.bz2
drakx-059439095315cef7bc965108d7edb96dd30b240e.tar.xz
drakx-059439095315cef7bc965108d7edb96dd30b240e.zip
(virt_technology) introduce it
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm11
1 files changed, 11 insertions, 0 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index b46fef8d2..4740cbe91 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -1471,6 +1471,17 @@ sub is_xbox() {
any { $_->{vendor} == 0x10de && $_->{id} == 0x02a5 } pci_probe();
}
+=item virt_technology()
+
+Returns the virtualization technology (eg: kvm, oracle, ...)
+
+=cut
+
+sub virt_technology() {
+ state $tech;
+ $tech ||= chomp_(run_program::get_stdout('systemd-detect-virt'));
+}
+
=item is_virtualbox()
Are we running under VirtualBox hypervisor?