From f5c09d61a46ba847425ebed5c3b57a22a8d61358 Mon Sep 17 00:00:00 2001
From: Mark Andrews <marka@isc.org>
Date: Wed, 13 Sep 2000 01:58:02 +0000
Subject: [PATCH] update to match current debug output

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

diff --git a/util/memleak.pl b/util/memleak.pl
index 00d2e02139..64d00b8fce 100644
--- a/util/memleak.pl
+++ b/util/memleak.pl
@@ -15,7 +15,7 @@
 # NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
 # WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 
-# $Id: memleak.pl,v 1.9 2000/08/01 01:33:29 tale Exp $
+# $Id: memleak.pl,v 1.10 2000/09/13 01:58:02 marka Exp $
 
 # Massage the output from ISC_MEM_DEBUG to extract mem_get() calls
 # with no corresponding mem_put().
@@ -23,8 +23,8 @@
 $mem_stats = '';
 
 while (<>) {
-    $gets{$1.$2} = $_ if (/mem_get\((?:0x)?([0-9a-f]+), (?:0x)?[0-9a-f]+\) -> (?:0x)?([0-9a-f]+)/);
-    delete $gets{$1.$2} if /mem_put\((?:0x)?([0-9a-f]+), (?:0x)?([0-9a-f]+), (?:0x)?[0-9a-f]+\)/;
+    $gets{$1.$2} = $_ if (/add (?:0x)?([0-9a-f]+) size (?:0x)?([0-9]+) file/);
+    delete $gets{$1.$2} if /del (?:0x)?([0-9a-f]+) size (?:0x)?([0-9]+) file/;
     $mem_stats .= $_ if /\d+ gets, +(\d+) rem/ && $1 > 0;
 }
 print join('', values %gets);