if ($mailback && ($clean == 1 || !$is_patch)) {		exit(0);	} 	# This is not a patch, and we are are in 'no-patch' mode so	# just keep quiet.	if (!$chk_patch && !$is_patch) {		exit(0);	} 	if (!$is_patch) {		ERROR("NOT_UNIFIED_DIFF",		      "Does not appear to be a unified-diff format patch\n");	}	if ($is_patch && $chk_signoff && $signoff == 0) {		ERROR("MISSING_SIGN_OFF",		      "Missing Signed-off-by: line(s)\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";		print "\n" if ($quiet == 0);	} 	if ($quiet == 0) { 		if ($^V lt 5.10.0) {			print("NOTE: perl $^V is not modern enough to detect all possible issues.\n");			print("An upgrade to at least perl v5.10.0 is suggested.\n\n");		} 		# If there were whitespace errors which cleanpatch can fix		# then suggest that.		if ($rpt_cleaners) {			print "NOTE: whitespace errors detected, you may wish to use scripts/cleanpatch or\n";			print "      scripts/cleanfile\n\n";			$rpt_cleaners = 0;		}	} 	if ($quiet == 0 && keys %ignore_type) {	    print "NOTE: Ignored message types:";	    foreach my $ignore (sort keys %ignore_type) {		print " $ignore";	    }	    print "\n\n";	} 	if ($clean == 1 && $quiet == 0) {		print "$vname has no obvious style problems and is ready for submission.\n"	}	if ($clean == 0 && $quiet == 0) {		print << "EOM";$vname has style problems, please review. If any of these errors are false positives, please reportthem to the maintainer, see CHECKPATCH in MAINTAINERS.EOM	} 	return $clean;}

Lines 3501–3566 of 3566. Previous lines