diff options
author | Dr. Stephen Henson <steve@openssl.org> | 2015-01-21 15:32:54 +0000 |
---|---|---|
committer | Matt Caswell <matt@openssl.org> | 2015-01-22 09:52:17 +0000 |
commit | 3600d5a744df0564bea3241dfd551a7ddd326286 (patch) | |
tree | 2e7c102481ce37f835a9c1455d001553b7d78d08 /util | |
parent | 2b2f5ac045e48d97337b695e2628d6f5ce539268 (diff) |
Delete trailing whitespace from output.
Reviewed-by: Tim Hudson <tjh@openssl.org>
Diffstat (limited to 'util')
-rw-r--r-- | util/su-filter.pl | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/util/su-filter.pl b/util/su-filter.pl index 854644bb33..8975af64f9 100644 --- a/util/su-filter.pl +++ b/util/su-filter.pl @@ -21,7 +21,7 @@ while(<>) { if($in_su == 1) { if(/}(.*);/) { $out .= $_; - print $out; + do_output($out); $in_su = 0; } elsif(/^ *\} [^\s]+(\[\d*\])* = \{/) { $tststr = $1; @@ -44,7 +44,7 @@ while(<>) { my @strucdata = structureData($data); $out .= displayData($indent, 0, \@strucdata); $out .= "\n$indent};\n"; - print $out; + do_output($out); $in_su = 0; } } elsif($incomm <= 0 && /( *)(static )?(const )?(union|struct) ([^\s]+ )?\{/) { @@ -53,7 +53,7 @@ while(<>) { $out = $_; next; } else { - print $_; + do_output($_); } } @@ -251,3 +251,10 @@ sub displayData { } return $out; } + +sub do_output { + my $out = shift; + # Strip any trailing whitespace + $out =~ s/\s+\n/\n/g; + print $out; +} |