hhf/MySQLTuner-perl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge branch 'master' of https://github.com/major/MySQLTuner-perl

Browse source
This commit is contained in:
root 2016-12-27 17:55:04 +01:00
commit 188f69c811
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
mysqltuner.pl
View file

@ -1312,7 +1312,7 @@ sub get_os_release {
return "Unknown OS release"; return "Unknown OS release";
} }
sub get_fs_info() { sub get_fs_info {
my @sinfo = `df -P | grep '%'`; my @sinfo = `df -P | grep '%'`;
my @iinfo = `df -Pi| grep '%'`; my @iinfo = `df -Pi| grep '%'`;
shift @iinfo; shift @iinfo;
@ -1370,7 +1370,7 @@ sub merge_hash {
return \%result; return \%result;
} }
sub is_virtual_machine() { sub is_virtual_machine {
my $isVm = `grep -Ec '^flags.*\ hypervisor\ ' /proc/cpuinfo`; my $isVm = `grep -Ec '^flags.*\ hypervisor\ ' /proc/cpuinfo`;
return ( $isVm == 0 ? 0 : 1 ); return ( $isVm == 0 ? 0 : 1 );
} }
@ -1402,7 +1402,7 @@ sub infocmd_one {
return join ', ', @result; return join ', ', @result;
} }
sub get_kernel_info() { sub get_kernel_info {
my @params = ( my @params = (
'fs.aio-max-nr', 'fs.aio-nr', 'fs.aio-max-nr', 'fs.aio-nr',
'fs.file-max', 'sunrpc.tcp_fin_timeout', 'fs.file-max', 'sunrpc.tcp_fin_timeout',
@ -1453,7 +1453,7 @@ sub get_kernel_info() {
} }
sub get_system_info() { sub get_system_info {
$result{'OS'}{'Release'} = get_os_release(); $result{'OS'}{'Release'} = get_os_release();
infoprint get_os_release; infoprint get_os_release;
if (is_virtual_machine) { if (is_virtual_machine) {