7586 lines · 225.6 KB · Perl
RawDownload
				     "From:/Signed-off-by: email address mismatch: $sob_msg\n");			} elsif ($authorsignoff == 5) {				WARN("FROM_SIGN_OFF_MISMATCH",				     "From:/Signed-off-by: email subaddress mismatch: $sob_msg\n");			}		}	} 	print report_dump();	if ($summary && !($clean == 1 && $quiet == 1)) {		print "$filename " if ($summary_file);		print "total: $cnt_error errors, $cnt_warn warnings, " .			(($check)? "$cnt_chk checks, " : "") .			"$cnt_lines lines checked\n";	} 	if ($quiet == 0) {		# If there were any defects found and not already fixing them		if (!$clean and !$fix) {			print << "EOM" NOTE: For some of the reported defects, checkpatch may be able to      mechanically convert to the typical style using --fix or --fix-inplace.EOM		}		# If there were whitespace errors which cleanpatch can fix		# then suggest that.		if ($rpt_cleaners) {			$rpt_cleaners = 0;			print << "EOM" NOTE: Whitespace errors detected.      You may wish to use scripts/cleanpatch or scripts/cleanfileEOM		}	} 	if ($clean == 0 && $fix &&	    ("@rawlines" ne "@fixed" ||	     $#fixed_inserted >= 0 || $#fixed_deleted >= 0)) {		my $newfile = $filename;		$newfile .= ".EXPERIMENTAL-checkpatch-fixes" if (!$fix_inplace);		my $linecount = 0;		my $f; 		@fixed = fix_inserted_deleted_lines(\@fixed, \@fixed_inserted, \@fixed_deleted); 		open($f, '>', $newfile)		    or die "$P: Can't open $newfile for write\n";		foreach my $fixed_line (@fixed) {			$linecount++;			if ($file) {				if ($linecount > 3) {					$fixed_line =~ s/^\+//;					print $f $fixed_line . "\n";				}			} else {				print $f $fixed_line . "\n";			}		}		close($f); 		if (!$quiet) {			print << "EOM"; Wrote EXPERIMENTAL --fix correction(s) to '$newfile' Do _NOT_ trust the results written to this file.Do _NOT_ submit these changes without inspecting them for correctness. This EXPERIMENTAL file is simply a convenience to help rewrite patches.No warranties, expressed or implied...EOM		}	} 	if ($quiet == 0) {		print "\n";		if ($clean == 1) {			print "$vname has no obvious style problems and is ready for submission.\n";		} else {			print "$vname has style problems, please review.\n";		}	}	return $clean;}

Lines 7501–7586 of 7586. Previous lines