checked in Perl script for tracking down memory leaks

util/memleak.pl

@@ -0,0 +1,10 @@
+#!/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);