Lines Matching full:my
25 my ($dir, @files) = @ARGV;
27 my $ret = 0;
28 my $line;
29 my $lineno = 0;
30 my $filename;
32 foreach my $file (@files) {
35 open(my $fh, '<', $filename)
53 my $inc = $1;
54 my $found;
88 my $linux_asm_types;
107 my $linux_types;
108 my %import_stack = ();
111 my $path = $_[0];
112 my $import_path;
114 my $fh;
115 my @file_paths = ($path, $dir . "/" . $path, dirname($filename) . "/" . $path);
116 for my $possible ( @file_paths ) {
127 my $line;
133 if (my $included = ($line =~ /^\s*#\s*include\s+[<"](\S+)[>"]/)[0]) {
155 if (my $included = ($line =~ /^\s*#\s*include\s+[<"](\S+)[>"]/)[0]) {