Lines Matching full:my
33 my $P = $0;
36 my @DIRS = ('/proc', '/sys');
39 my $TIMEOUT = 10;
43 my @SUPPORTED_ARCHITECTURES = ('x86_64', 'ppc64', 'x86');
46 my $help = 0;
47 my $debug = 0;
48 my $raw = 0;
49 my $output_raw = ""; # Write raw results to file.
50 my $input_raw = ""; # Read raw results from file instead of scanning.
51 my $suppress_dmesg = 0; # Don't show dmesg in output.
52 my $squash_by_path = 0; # Summary report grouped by absolute path.
53 my $squash_by_filename = 0; # Summary report grouped by filename.
54 my $kernel_config_file = ""; # Kernel configuration file.
55 my $opt_32bit = 0; # Scan 32-bit kernel.
56 my $page_offset_32bit = 0; # Page offset for 32-bit kernel.
59 my @skip_abs = (
69 my @skip_any = (
83 my ($exitcode) = @_;
147 my $archname = `uname -m`;
154 open my $fh, '>', $output_raw or die "$0: $output_raw: $!\n";
196 my ($desc) = @_;
197 my $arch = `uname -m`;
222 my ($option) = @_;
223 my $value = "";
224 my $tmp_file = "";
225 my @config_files;
231 my $tmp_file = "/tmp/tmpkconf";
240 my $file = '/boot/config-' . `uname -r`;
245 foreach my $file (@config_files) {
263 my ($option, $file) = @_;
264 my $str = "";
265 my $val = "";
267 open(my $fh, "<", $file) or return "";
268 while (my $line = <$fh> ) {
282 my ($match) = @_;
304 my ($match) = @_;
321 my $page_offset;
322 my $default_offset = 0xc0000000;
338 my ($match) = @_;
340 my $hex = hex($match);
341 my $region_min = hex("0xffffffffff600000");
342 my $region_max = hex("0xffffffffff601000");
350 my ($line) = @_;
351 my $address_re;
402 open my $cmd, '-|', 'dmesg';
414 my ($path) = @_;
420 my($filename, $dirs, $suffix) = fileparse($path);
430 my ($file) = @_;
447 my ($file) = @_;
457 open my $fh, "<", $file or return;
470 my ($path) = @_;
480 my @dirs = @_;
482 while (my $pwd = shift @dirs) {
484 my @files = readdir(DIR);
487 foreach my $file (@files) {
490 my $path = "$pwd/$file";
514 my ($file) = @_;
522 my ($total, $dmesg, $paths, $files) = parse_raw_file($file);
541 my ($file) = @_;
543 open (my $fh, '<', $file) or die "$0: $file: $!\n";
557 my ($file) = @_;
559 my $total = 0; # Total number of lines parsed.
560 my @dmesg; # dmesg output.
561 my %files; # Unique filenames containing leaks.
562 my %paths; # Unique paths containing leaks.
564 open (my $fh, '<', $file) or die "$0: $file: $!\n";
565 while (my $line = <$fh>) {
582 my ($dmesg) = @_;
592 my $index = index($_, ': ');
600 my ($ref, $desc) = @_;
611 my $lines = $ref->{$_};
612 my $length = @$lines;
619 my ($paths, $line) = @_;
621 my $index = index($line, ': ');
622 my $path = substr($line, 0, $index);
630 my ($files, $line) = @_;
632 my $index = index($line, ': ');
633 my $path = substr($line, 0, $index);
634 my $filename = basename($path);
642 my ($cache, $key, $value) = @_;