Accept trace-malloc stack format as well.

This commit is contained in:
dbaron%dbaron.org 2003-08-18 05:07:31 +00:00
Родитель e0574a4385
Коммит 700930043a
1 изменённых файлов: 1 добавлений и 1 удалений

Просмотреть файл

@ -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;