2
0
mirror of https://gitlab.isc.org/isc-projects/bind9 synced 2025-09-03 08:05:21 +00:00

cleanup trailing white space in SGML like files

This commit is contained in:
Mark Andrews
2015-10-22 16:09:46 +11:00
parent 04893d38e0
commit 30eec077db
74 changed files with 444 additions and 436 deletions

View File

@@ -559,6 +559,14 @@ foreach $file (keys %file_types) {
$body = "$body$_";
}
$_ = $body;
} elsif ($type eq "SGML" && $sysyears =~ /$this_year/) {
my $body = "";
while (<SOURCE>) {
# Remove trailing white space.
s/[ \t]*$//;
$body = "$body$_";
}
$_ = $body;
} else {
undef $/;
$_ = <SOURCE>;