Accept trace-malloc stack format as well.

git-svn-id: svn://10.0.0.236/trunk@146152 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
dbaron%dbaron.org 2003-08-18 05:07:31 +00:00
parent 6a33b7fc78
commit 47664af25e

View File

@ -54,7 +54,7 @@ use IPC::Open2;
my %pipes;
while (<>) {
my $line = $_;
if ($line =~ /^([ \|0-9-]*)(.*) \[([^ ]*) \+(0x[0-9A-F]{8})\](.*)$/) {
if ($line =~ /^([ \|0-9-]*)(.*) ?\[([^ ]*) \+(0x[0-9A-F]{1,8})\](.*)$/) {
my $before = $1; # allow preservation of balance trees
my $badsymbol = $2;
my $file = $3;