mirror of
https://github.com/isc-projects/bind9.git
synced 2026-04-15 22:09:31 -04:00
10 lines
299 B
Perl
10 lines
299 B
Perl
#!/usr/bin/perl
|
|
|
|
# Massage the output from ISC_MEM_DEBUG to extract mem_get() calls
|
|
# with no corresponding mem_put().
|
|
|
|
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]+)/;
|
|
}
|
|
print join('', values %gets);
|