tools/rb/filter-log.pl
author B2G Bumper Bot <release+b2gbumper@mozilla.com>
Thu, 03 Jul 2014 01:25:25 -0700
changeset 205896 8c6d2ef269cd87cb34d6a46ca2fd9490712a8033
parent 96742 f4157e8c410708d76703f19e4dfb61859bfe32d8
permissions -rwxr-xr-x
Bumping gaia.json for 4 gaia revision(s) a=gaia-bump ======== https://hg.mozilla.org/integration/gaia-central/rev/f98cc089db06 Author: Jose M. Cantera <jmcanterafonseca@gmail.com> Desc: Merge pull request #20613 from jmcanterafonseca/contacts_Data Bug 989929 - [Contacts][Refactor] Create Contacts indexed DB library to ... ======== https://hg.mozilla.org/integration/gaia-central/rev/5e71e90bb54f Author: José Manuel Cantera <jmcanterafonseca@gmail.com> Desc: Bug 989929 - [Contacts][Refactor] Create Contacts indexed DB library to support synchronization from the Global Contacts Datastore ======== https://hg.mozilla.org/integration/gaia-central/rev/7fb5ac42a379 Author: Greg Weng <snowmantw@gmail.com> Desc: Merge pull request #21317 from snowmantw/issue1033135 Bug 1033135 - [System] Hide SIM pin dialog if the screen unlock into Cam... ======== https://hg.mozilla.org/integration/gaia-central/rev/487e7faa8395 Author: Greg Weng <snowmantw@gmail.com> Desc: Bug 1033135 - [System] Hide SIM pin dialog if the screen unlock into Camera app

#!/usr/bin/perl -w
#
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.

# Filter a refcount log to show only the entries for a single object.
# Useful when manually examining refcount logs containing multiple
# objects.

use 5.004;
use strict;
use Getopt::Long;

GetOptions("object=s");

$::opt_object ||
     die qq{
usage: filter-log-for.pl < logfile
  --object <obj>         The address of the object to examine (required)
};

warn "object $::opt_object\n";

LINE: while (<>) {
    next LINE if (! /^</);
    my $line = $_;
    my @fields = split(/ /, $_);

    my $class = shift(@fields);
    my $obj   = shift(@fields);
    next LINE unless ($obj eq $::opt_object);
    my $sno   = shift(@fields);
    my $op  = shift(@fields);
    my $cnt = shift(@fields);

    print $line;

    # The lines in the stack trace
    CALLSITE: while (<>) {
        print;
        last CALLSITE if (/^$/);
    }
}