From 7482fd44bc9d73efa2d41e72fb4458a4597cabc0 Mon Sep 17 00:00:00 2001
From: "dbaron%dbaron.org"
 <dbaron%dbaron.org@18797224-902f-48f8-a5cc-f745e15eee43>
Date: Fri, 8 Aug 2003 22:30:37 +0000
Subject: [PATCH] Allow fixup of counts at end of make-tree.pl output.

git-svn-id: svn://10.0.0.236/trunk@145766 18797224-902f-48f8-a5cc-f745e15eee43
---
 mozilla/tools/rb/fix-linux-stack.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/mozilla/tools/rb/fix-linux-stack.pl b/mozilla/tools/rb/fix-linux-stack.pl
index f41862da6ee..576998ddfdd 100755
--- a/mozilla/tools/rb/fix-linux-stack.pl
+++ b/mozilla/tools/rb/fix-linux-stack.pl
@@ -54,12 +54,12 @@ use IPC::Open2;
 my %pipes;
 while (<>) {
     my $line = $_;
-    if ($line =~ /([ \|0-9]*)(.*) \[([^ ]*) \+(0x[0-9A-F]{8})\]$/) {
-        my $before = $1; # preserve minimal stuff before to preserve
-                         # balance trees
+    if ($line =~ /^([ \|0-9]*)(.*) \[([^ ]*) \+(0x[0-9A-F]{8})\](.*)$/) {
+        my $before = $1; # allow preservation of balance trees
         my $badsymbol = $2;
         my $file = $3;
         my $address = $4;
+        my $after = $5; # allow preservation of counts
 
         my $pipe;
         unless (exists $pipes{$file}) {
@@ -77,7 +77,7 @@ while (<>) {
         chomp(my $fileandline = <$in>);
         ($symbol eq "??") && { $symbol = $badsymbol };
         ($fileandline eq "??:0") && { $fileandline = $file };
-        print "$before$symbol ($fileandline)\n";
+        print "$before$symbol ($fileandline)$after\n";
     } else {
         print $line;
     }