[Core] Use ImVirt for virtualization detection if not running on syst…

…emd (Debian Bug#984789 by Patrik Schindler <poc@pocnet.net>).

ChangeLog

@@ -24,6 +24,8 @@ needrestart 3.6
       (github issue #205 by @HumanG33k)
     - [Core] Output user sessions in batch mode.
       (github pull request #232 by @anarcat)
+    - [Core] Use ImVirt for virtualization detection if not running on systemd.
+      (Debian Bug#984789 by Patrik Schindler <poc@pocnet.net>)
     - [Interp] Add tolerance when checking script file ctimes to avoid false positives.
       (github pull request #233 by Corey Hickey @bugfood)
     - [Kernel] Replace strings(1) by GNU grep to drop binutils dependency.

INSTALL.md

@@ -11,6 +11,7 @@ Perl
 - Sort::Naturally
 - Term::ReadKey
 - Parent (for legacy Perl versions, i.e. on CentOS 6)
+- ImVirt (optional; highly recommended if not running on systemd)
 
 Misc
 ----

needrestart

@@ -51,7 +51,7 @@ my $is_tty = (-t *STDERR || -t *STDOUT || -t *STDIN);
 my $is_vm;
 my $is_container;
 
-if($is_systemd && -x q(/usr/bin/systemd-detect-virt)) {
+if($is_systemd && -x q(/usr/bin/systemds-detect-virt)) {
 	# check if we are inside of a vm
 	my $ret = system(qw(/usr/bin/systemd-detect-virt --vm --quiet));
 	unless($? == -1 || $? & 127) {
@@ -64,6 +64,14 @@ if($is_systemd && -x q(/usr/bin/systemd-detect-virt)) {
 		$is_container = ($? >> 8) == 0;
 	}
 }
+elsif(eval "use ImVirt; 1;") {
+	require ImVirt;
+	ImVirt->import();
+	my $imvirt = ImVirt::imv_get(ImVirt->IMV_PROB_DEFAULT);
+
+	$is_vm = $imvirt ne ImVirt->IMV_PHYSICAL;
+	$is_container = $imvirt eq ImVirt->IMV_CONTAINER;
+}
 elsif (-r "/proc/1/environ") {
 	# check if we are inside of a container (fallback)
     local $/;