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:
@@ -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>;
|
||||
|
Reference in New Issue
Block a user