kvm-unit-tests/scripts/checkpatch.pl

41 my $file = 0;
309 	'f|file!'	=> \$file,
365 die "$P: --git cannot be used with --file or --fix\n" if ($git && ($file || $fix));
988 	my ($wordsRef, $file) = @_;
990 	if (open(my $words, '<', $file)) {
1000 				print("$file: '$line' invalid - ignored\n");
1007 		close($file);
1116 	my ($file) = @_;
1118 	return if (!(-f $file));
1122 	open(my $include_file, '<', "$file")
1123 	    or warn "$P: Can't read '$file' $!\n";
1184 		foreach my $file (@include_files) {
1186 						   localtime((stat $file)[9]));
1209 	foreach my $file (@include_files) {
1210 		seed_camelcase_file($file);
1266 $chk_signoff = 0 if ($file);
1267 $chk_fixes_tag = 0 if ($file);
1310 	my $oldfile = $file;
1311 	$file = 1 if ($is_git_file);
1315 	} elsif ($file) {
1356 	$file = $oldfile if ($is_git_file);
2506 	my $file = $absolute;
2511 	while ($file =~ s@^[^/]*/@@) {
2512 		if (-f "$root/$file") {
2523 	substr($prefix, -length($file)) = '';
2655 	my $in_header_lines = $file ? 0 : 1;
2858 		$here = "#$linenr: " if (!$file);
2859 		$here = "#$realline: " if ($file);
2865 			$realfile =~ s@^([^/]*)/@@ if (!$file);
2870 			$realfile =~ s@^([^/]*)/@@ if (!$file);
2874 			if (!$file && $tree && $p1_prefix ne '' &&
2891 			if ($file) {
3489 				my $file = $1;
3491 				if ($file =~ m{^(.*?)(?::\d+)+:?$} &&
3495 					check_absolute_file($file, $herecurr);
3512 				$msg_level = \&CHK if ($file);
3615 			$msg_level = \&CHK if ($file);
3793 						$msg_level = \&CHK if ($file);
3885 				$msg_level = \&CHK if ($file);
4851 			$msg_level = \&CHK if ($file);
4917 		if (!$file && $line =~ /\bENOTSUPP\b/) {
5881 						if (!$file && !$camelcase_file_seeded) {
5907 			my $file = "$1.h";
5908 			my $checkfile = "include/linux/$file";
5913 				my $asminclude = `grep -Ec "#include\\s+<asm/$file>" $root/$checkfile`;
5917 						    "Consider using #include <linux/$file> instead of <asm/$file>\n" . $herecurr);
5920 						     "Use #include <linux/$file> instead of <asm/$file>\n" . $herecurr);
7345 					$msg_level = \&CHK if ($file);
7684 			if (!$file && $extracted_string eq '"GPL v2"') {
7805 			if ($file) {