summaryrefslogtreecommitdiffstats
path: root/lib/ASM/Event.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/ASM/Event.pm')
-rw-r--r--lib/ASM/Event.pm7
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));