From e1fa173022d528b3934e94577a0c9fcfbc46eb2c Mon Sep 17 00:00:00 2001
From: Ulrich Drepper <drepper@redhat.com>
Date: Sat, 6 Jan 2001 19:29:33 +0000
Subject: [PATCH] Fix matching of addresses.

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

diff --git a/malloc/mtrace.pl b/malloc/mtrace.pl
index 8647a693d6..7fbab48bc8 100644
--- a/malloc/mtrace.pl
+++ b/malloc/mtrace.pl
@@ -75,7 +75,7 @@ if ($#ARGV == 0) {
 sub location {
     my $str = pop(@_);
     return $str if ($str eq "");
-    if ($str =~ /[[](0x[^]]*)]:(.)*/) {
+    if ($str =~ /.*[[](0x[^]]*)]:(.)*/) {
 	my $addr = $1;
 	my $fct = $2;
 	return $cache{$addr} if (exists $cache{$addr});
@@ -89,7 +89,7 @@ sub location {
 	    }
 	}
 	$cache{$addr} = $str = "$fct @ $addr";
-    } elsif ($str =~ /^[[](0x[^]]*)]$/) {
+    } elsif ($str =~ /^.*[[](0x[^]]*)]$/) {
 	my $addr = $1;
 	return $cache{$addr} if (exists $cache{$addr});
 	if ($binary ne "" && open (ADDR, "addr2line -e $binary $addr|")) {