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

Merge pull request #205 from iangregory/portability-improvements

Browse source 
Improve portability when fetching process memory
This commit is contained in:
Jean-Marie Renouard 2016-05-10 15:57:53 +02:00
commit 6d562f98b0
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
mysqltuner.pl
View file

@ -1088,15 +1088,15 @@ sub is_open_port {
sub get_process_memory {
my $pid = shift;
return 0 unless -f "/proc/$pid/status";
my @pdata = grep { /RSS:/ } get_file_contents "/proc/$pid/status";
map { s/.*RSS:\s*(\d+)\s*kB\s*$/$1*1024/ge } @pdata;
return $pdata[0];
my @mem = `ps -p $pid -o rss`;
return 0 if scalar @mem != 2;
return $mem[1]*1024;
}
sub get_other_process_memory {
my @procs = `ps -eo pid,cmd`;
my @procs = `ps -eaxo pid,command`;
map {
s/.*PID.*//;
s/.*mysqld.*//;
s/.*\[.*\].*//;
s/^\s+$//g;