11 lines
299 B
Perl
11 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);
|