Bug 539274: Tab cleanup in aisle tools/rb/find-leakers.pl r=bsmedberg
--- a/tools/rb/find-leakers.pl
+++ b/tools/rb/find-leakers.pl
@@ -62,26 +62,26 @@ LINE: while (<>) {
}
elsif ($op eq 'Release' && $cnt == 0) {
# Example: <nsStringBuffer> 0x01AFD3B8 1 Release 0
delete($allocs{$obj});
delete($classes{$obj});
}
elsif ($op eq 'Ctor') {
- # Example: <PStreamNotifyParent> 0x08880BD0 8 Ctor (20)
+ # Example: <PStreamNotifyParent> 0x08880BD0 8 Ctor (20)
- $allocs{$obj} = ++$counter{$class};
- $classes{$obj} = $class;
+ $allocs{$obj} = ++$counter{$class};
+ $classes{$obj} = $class;
}
elsif ($op eq 'Dtor') {
- # Example: <PStreamNotifyParent> 0x08880BD0 8 Dtor (20)
+ # Example: <PStreamNotifyParent> 0x08880BD0 8 Dtor (20)
- delete($allocs{$obj});
- delete($classes{$obj});
+ delete($allocs{$obj});
+ delete($classes{$obj});
}
}
sub sort_by_value {
my %x = @_;
sub _by_value($) { my %x = @_; $x{$a} cmp $x{$b}; }
sort _by_value keys(%x);