Back out changeset 72c0c955cf53 (no bug) now that bug 939610 is fixed.
authorL. David Baron <dbaron@dbaron.org>
Mon, 24 Feb 2014 15:27:53 -0800
changeset 170637 39c8925c2543a3936efe86d3f6d69586ce6b7281
parent 170636 29af928ab75bad6a40e8c54ffe17e12f22e88127
child 170638 22a2eb6d214570d9b696d38f710996ef6d3703c5
push id270
push userpvanderbeken@mozilla.com
push dateThu, 06 Mar 2014 09:24:21 +0000
bugs939610
milestone30.0a1
backs out72c0c955cf53298175b1da4a1b399ceb7c4a598d
Back out changeset 72c0c955cf53 (no bug) now that bug 939610 is fixed.
tools/rb/fix-linux-stack.pl
--- a/tools/rb/fix-linux-stack.pl
+++ b/tools/rb/fix-linux-stack.pl
@@ -218,17 +218,17 @@ sub get_file_info($) {
 }
 
 # Ignore SIGPIPE as a workaround for addr2line crashes in some situations.
 $SIG{PIPE} = 'IGNORE';
 
 select STDOUT; $| = 1; # make STDOUT unbuffered
 while (<>) {
     my $line = $_;
-    if ($line =~ /^([ \|0-9-]*)(.*) ?\[([^ ]*) \+(0x[0-9A-Fa-f]{1,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;
         my $address = hex($4);
         my $after = $5; # allow preservation of counts
 
         if (-f $file) {
             my $file_info = get_file_info($file);