push @err, "content: has multiple EOL at EOF";
}
- if($content =~ /\n\n\n\n/ ||
- $content =~ /\r\n\r\n\r\n\r\n/) {
- push @err, "content: has 3 or more consecutive empty lines";
- }
-
if(!fn_match($filename, @double_empty_lines)) {
if($content =~ /\n\n\n/ ||
$content =~ /\r\n\r\n\r\n/) {
- push @err, "content: has 2 consecutive empty lines";
+ 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;
+ }
+ }
}
}