Tests: Check for carriage returns
This commit is contained in:
parent
9b998cf6b3
commit
f23a7bfdd7
|
|
@ -61,6 +61,10 @@ if (!-r "$root/.git") {
|
||||||
}
|
}
|
||||||
elsif ($line =~ m!^\+(.*)!) {
|
elsif ($line =~ m!^\+(.*)!) {
|
||||||
++$lineno;
|
++$lineno;
|
||||||
|
if ($line =~ /\r/) {
|
||||||
|
$summary = "File modification adds carriage return (remove them):" if !$summary;
|
||||||
|
$warns{$file} = "File modification adds carriage return (remove them): $file:$lineno";
|
||||||
|
}
|
||||||
my $len = length($1);
|
my $len = length($1);
|
||||||
if ($len >= 100
|
if ($len >= 100
|
||||||
&& $file !~ /\.out$/) {
|
&& $file !~ /\.out$/) {
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue