From 1ccf150881e4ba0cd4a7c52f8ca3758077747aae Mon Sep 17 00:00:00 2001
From: Michael Sawyer <source@isc.org>
Date: Thu, 27 Apr 2000 01:36:37 +0000
Subject: [PATCH] Allow field to be hex which was previously limited to decimal

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

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