mirror of
https://gitlab.isc.org/isc-projects/bind9
synced 2025-09-04 08:35:31 +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 = "$body$_";
|
||||||
}
|
}
|
||||||
$_ = $body;
|
$_ = $body;
|
||||||
|
} elsif ($type eq "SGML" && $sysyears =~ /$this_year/) {
|
||||||
|
my $body = "";
|
||||||
|
while (<SOURCE>) {
|
||||||
|
# Remove trailing white space.
|
||||||
|
s/[ \t]*$//;
|
||||||
|
$body = "$body$_";
|
||||||
|
}
|
||||||
|
$_ = $body;
|
||||||
} else {
|
} else {
|
||||||
undef $/;
|
undef $/;
|
||||||
$_ = <SOURCE>;
|
$_ = <SOURCE>;
|
||||||
|
Reference in New Issue
Block a user