diff options
Diffstat (limited to 'lib/ASM/Event.pm')
| -rw-r--r-- | lib/ASM/Event.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/ASM/Event.pm b/lib/ASM/Event.pm index 4f0d547..9a8b826 100644 --- a/lib/ASM/Event.pm +++ b/lib/ASM/Event.pm @@ -907,9 +907,12 @@ sub on_quietlistend } $::pendingsync--; if ($::pendingsync == 0) { - my $size = `ps -p $$ h -o size`; + my $size = `pmap -X $$ | tail -n 1`; + $size =~ s/^\s+|\s+$//g; + my @temp = split(/ +/, $size); + $size = $temp[1] + $temp[5]; my $cputime = `ps -p $$ h -o time`; - chomp $size; chomp $cputime; + chomp $cputime; my ($tx, $rx); if ($conn->{_tx}/1024 > 1024) { $tx = sprintf("%.2fMB", $conn->{_tx}/(1024*1024)); |
