| OLD | NEW |
| 1 #!/usr/bin/perl | 1 #!/usr/bin/perl |
| 2 # Copyright (c) 2012 The Chromium Authors. All rights reserved. |
| 3 # Use of this source code is governed by a BSD-style license that can be |
| 4 # found in the LICENSE file. |
| 2 | 5 |
| 3 sub process_raw($$) { | 6 sub process_raw($$) { |
| 4 my $file = shift; | 7 my $file = shift; |
| 5 my $search = shift; | 8 my $search = shift; |
| 6 | 9 |
| 7 my %leaks = (); | 10 my %leaks = (); |
| 8 | 11 |
| 9 my $save = 0; | 12 my $save = 0; |
| 10 my $print = 0; | 13 my $print = 0; |
| 11 my $bytes = 0; | 14 my $bytes = 0; |
| (...skipping 32 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 44 | 47 |
| 45 | 48 |
| 46 # ----- Main ------------------------------------------------ | 49 # ----- Main ------------------------------------------------ |
| 47 | 50 |
| 48 # Get the command line argument | 51 # Get the command line argument |
| 49 my $filename = shift; | 52 my $filename = shift; |
| 50 my $search = shift; | 53 my $search = shift; |
| 51 | 54 |
| 52 # Process the file. | 55 # Process the file. |
| 53 process_raw($filename, $search); | 56 process_raw($filename, $search); |
| OLD | NEW |