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 = (
68 my @skip_any = (
82 my ($exitcode) = @_;
146 my $archname = `uname -m`;
153 open my $fh, '>', $output_raw or die "$0: $output_raw: $!\n";
195 my ($desc) = @_;
196 my $arch = `uname -m`;
221 my ($option) = @_;
222 my $value = "";
223 my $tmp_file = "";
224 my @config_files;
230 my $tmp_file = "/tmp/tmpkconf";
239 my $file = '/boot/config-' . `uname -r`;
244 foreach my $file (@config_files) {
262 my ($option, $file) = @_;
263 my $str = "";
264 my $val = "";
266 open(my $fh, "<", $file) or return "";
267 while (my $line = <$fh> ) {
281 my ($match) = @_;
303 my ($match) = @_;
320 my $page_offset;
321 my $default_offset = 0xc0000000;
337 my ($match) = @_;
339 my $hex = hex($match);
340 my $region_min = hex("0xffffffffff600000");
341 my $region_max = hex("0xffffffffff601000");
349 my ($line) = @_;
350 my $address_re;
401 open my $cmd, '-|', 'dmesg';
413 my ($path) = @_;
419 my($filename, $dirs, $suffix) = fileparse($path);
429 my ($file) = @_;
446 my ($file) = @_;
456 open my $fh, "<", $file or return;
469 my ($path) = @_;
479 my @dirs = @_;
481 while (my $pwd = shift @dirs) {
483 my @files = readdir(DIR);
486 foreach my $file (@files) {
489 my $path = "$pwd/$file";
513 my ($file) = @_;
521 my ($total, $dmesg, $paths, $files) = parse_raw_file($file);
540 my ($file) = @_;
542 open (my $fh, '<', $file) or die "$0: $file: $!\n";
556 my ($file) = @_;
558 my $total = 0; # Total number of lines parsed.
559 my @dmesg; # dmesg output.
560 my %files; # Unique filenames containing leaks.
561 my %paths; # Unique paths containing leaks.
563 open (my $fh, '<', $file) or die "$0: $file: $!\n";
564 while (my $line = <$fh>) {
581 my ($dmesg) = @_;
591 my $index = index($_, ': ');
599 my ($ref, $desc) = @_;
610 my $lines = $ref->{$_};
611 my $length = @$lines;
618 my ($paths, $line) = @_;
620 my $index = index($line, ': ');
621 my $path = substr($line, 0, $index);
629 my ($files, $line) = @_;
631 my $index = index($line, ': ');
632 my $path = substr($line, 0, $index);
633 my $filename = basename($path);
641 my ($cache, $key, $value) = @_;