spacecheck: find double newlines in `tests/data/test*`
No binary (build failed)
—
(log yok)
| @@ -148,24 +148,24 @@ while(my $filename = <$git_ls_files>) { | |
| push @err, "content: has multiple EOL at EOF"; | |
| } | |
| - | if(!fn_match($filename, @double_empty_lines)) { |
| - | if($content =~ /\n\n\n/ || |
| - | $content =~ /\r\n\r\n\r\n/) { |
| - | my $line = 0; |
| - | my $blank = 0; |
| - | for my $l (split(/\n/, $content)) { |
| - | chomp $l; |
| - | $line++; |
| - | if($l =~ /^$/) { |
| - | if($blank) { |
| - | my $lineno = sprintf("duplicate empty line @ line %d", $line); |
| - | push @err, $lineno; |
| - | } |
| - | $blank = 1; |
| - | } |
| - | else { |
| - | $blank = 0; |
| + | if((!fn_match($filename, @double_empty_lines) && |
| + | ($content =~ /\n\n\n/ || |
| + | $content =~ /\r\n\r\n\r\n/)) || |
| + | $content =~ />\n\n\n+[<#]/) { |
| + | my $line = 0; |
| + | my $blank = 0; |
| + | for my $l (split(/\n/, $content)) { |
| + | chomp $l; |
| + | $line++; |
| + | if($l =~ /^$/) { |
| + | if($blank) { |
| + | my $lineno = sprintf("duplicate empty line @ line %d", $line); |
| + | push @err, $lineno; |
| } | |
| + | $blank = 1; |
| + | } |
| + | else { |
| + | $blank = 0; |
| } | |
| } | |
| } | |