Donate to e Foundation | Murena handsets with /e/OS | Own a part of Murena! Learn more

Commit b9ea10d6 authored by Andy Whitcroft's avatar Andy Whitcroft Committed by Linus Torvalds
Browse files

checkpatch: perform indent checks on perl 



So that we eat our own dog food ensure the indent checks apply to perl
too.

Signed-off-by: default avatarAndy Whitcroft <apw@shadowen.org>
Signed-off-by: default avatarAndrew Morton <akpm@linux-foundation.org>
Signed-off-by: default avatarLinus Torvalds <torvalds@linux-foundation.org>
parent f055663c

scripts/checkpatch.pl

+5 −2
Original line number Diff line number Diff line
@@ -1266,8 +1266,8 @@ sub process { 
			WARN("adding a line without newline at end of file\n" . $herecurr);

		}



# check we are in a valid source file *.[hc] if not then ignore this hunk

		next if ($realfile !~ /\.[hc]$/);

# check we are in a valid source file C or perl if not then ignore this hunk

		next if ($realfile !~ /\.(h|c|pl)$/);



# at the beginning of a line any tabs must come first and anything

# more than 8 must use tabs.
@@ -1277,6 +1277,9 @@ sub process { 
			ERROR("code indent should use tabs where possible\n" . $herevet);

		}



# check we are in a valid C source file if not then ignore this hunk

		next if ($realfile !~ /\.(h|c)$/);



# check for RCS/CVS revision markers

		if ($rawline =~ /^\+.*\$(Revision|Log|Id)(?:\$|)/) {

			WARN("CVS style keyword markers, these will _not_ be updated\n". $herecurr);