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 |