So that we eat our own dog food ensure the indent checks apply to perl too.
Unified · Split
| @@ -1266,8 +1266,8 @@ sub process { · 1265 unmodified lines | ||
| 1266 | 1266 | WARN("adding a line without newline at end of file\n" . $herecurr); |
| 1267 | 1267 | } |
| 1268 | 1268 | |
| 1269 | −# check we are in a valid source file *.[hc] if not then ignore this hunk | |
| 1270 | − next if ($realfile !~ /\.[hc]$/); | |
| 1269 | +# check we are in a valid source file C or perl if not then ignore this hunk | |
| 1270 | + next if ($realfile !~ /\.(h|c|pl)$/); | |
| 1271 | 1271 | |
| 1272 | 1272 | # at the beginning of a line any tabs must come first and anything |
| 1273 | 1273 | # more than 8 must use tabs. |
| @@ -1277,6 +1277,9 @@ sub process { · 3 unmodified lines | ||
| 1277 | 1277 | ERROR("code indent should use tabs where possible\n" . $herevet); |
| 1278 | 1278 | } |
| 1279 | 1279 | |
| 1280 | +# check we are in a valid C source file if not then ignore this hunk | |
| 1281 | + next if ($realfile !~ /\.(h|c)$/); | |
| 1282 | + | |
| 1280 | 1283 | # check for RCS/CVS revision markers |
| 1281 | 1284 | if ($rawline =~ /^\+.*\$(Revision|Log|Id)(?:\$|)/) { |
| 1282 | 1285 | WARN("CVS style keyword markers, these will _not_ be updated\n". $herecurr); |