diff --git a/util/memleak.pl b/util/memleak.pl index 1333485ba3..178a731a6d 100644 --- a/util/memleak.pl +++ b/util/memleak.pl @@ -3,8 +3,14 @@ # Massage the output from ISC_MEM_DEBUG to extract mem_get() calls # with no corresponding mem_put(). +$mem_stats = ''; + while (<>) { $gets{$1.$2} = $_ if /mem(pool)?_get.*-> 0x([0-9a-f]+)/; delete $gets{$1.$2} if /mem(pool)?_put\(0x[0-9a-f]+, 0x([0-9a-f]+)/; + $mem_stats .= $_ if /\d+ gets, +(\d+) rem/ && $1 > 0; } print join('', values %gets); +print $mem_stats; + +exit(0);