From cb5a1c528ee3bea5d5288ef61b5547300d697479 Mon Sep 17 00:00:00 2001
From: Robert Milasan <robert.milasan@concur.com>
Date: Tue, 29 Mar 2016 09:51:48 +0200
Subject: [PATCH] Fix is_virtual_machine function return, drop ENV{'HOSTNAME'}
 for hostname cmd, some machines don't have HOSTNAME set

---
 mysqltuner.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/mysqltuner.pl b/mysqltuner.pl
index 11bbc7a..b1a5816 100755
--- a/mysqltuner.pl
+++ b/mysqltuner.pl
@@ -1057,7 +1057,7 @@ sub get_fs_info() {
 }
 sub is_virtual_machine() {
   my $isVm=`grep -Ec '^flags.*\ hypervisor\ ' /proc/cpuinfo`;
-  return ($isVm==0?1:0);
+  return ($isVm==0?0:1);
 }
 
 
@@ -1102,9 +1102,9 @@ if ($? == 0) {
 } else {
   badprint  "Internet              : Disconnected";
   }
-infoprint "Operating System Type : " . infocmd_one "uname -o";
+infoprint "Operating System Type : ". infocmd_one "uname -o";
 infoprint "Kernel Release        : ". infocmd_one "uname -r";
-infoprint "Hostname              : $ENV{'HOSTNAME'}";
+infoprint "Hostname              : ". infocmd_one "hostname";
 infoprint "Network Cards         : ";
 infocmd_tab "ifconfig| grep -A1 mtu";
 infoprint "Internal IP           : ". infocmd_one "hostname -I";
@@ -1113,7 +1113,7 @@ badprint  "External IP           : Can't check because of Internet connectivity"
 infoprint "Name Servers          : ". infocmd_one "grep 'nameserver' /etc/resolv.conf \| awk '{print \$2}'";
 infoprint "Logged In users       : ";
 infocmd_tab "who";
-infoprint "Ram Usages            :";
+infoprint "Ram Usages            : ";
 infocmd_tab "free -h | grep -v +";
 infoprint "Load Average          : ";
 infocmd_tab "top -n 1 -b | grep 'load average:'";