print "Final Size: $final\n";
if ( $final > $initial ) {
- print "Leaked: " . ($final - $initial) . "\n";
+ print "Leaked: " . ($final - $initial) . " K\n";
}
is( $final, $initial, "'$uri' memory is not leaking" );
foreach my $p ( @{ $t->table } ) {
if ( $p->pid == $pid ) {
- return $p->size;
+ return $p->rss;
}
}