From d536f68beea68ec2529603477fdd442e5dc7d9d0 Mon Sep 17 00:00:00 2001
From: Michael Sawyer <source@isc.org>
Date: Thu, 27 Apr 2000 01:24:13 +0000
Subject: [PATCH] Fix for new memory log output format

---
 util/memleak.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/util/memleak.pl b/util/memleak.pl
index 8bb570be11..bd97fe692a 100644
--- a/util/memleak.pl
+++ b/util/memleak.pl
@@ -21,8 +21,8 @@
 $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]+)/;
+    $gets{$1.$2} = $_ if /mem_get\(([0-9]+), [0-9]+\) -> ([0-9a-f]+)/;
+    delete $gets{$1.$2} if /mem_put\(([0-9]+), ([0-9a-f]+), [0-9]+\)/;
     $mem_stats .= $_ if /\d+ gets, +(\d+) rem/ && $1 > 0;
 }
 print join('', values %gets);