projects
/
openssl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Delete trailing whitespace from output.
[openssl.git]
/
util
/
su-filter.pl
diff --git
a/util/su-filter.pl
b/util/su-filter.pl
index 854644bb333442d5aeee6e54c619697f9246b643..8975af64f95c238c8613cc65f9106b5aa3566c0a 100644
(file)
--- a/
util/su-filter.pl
+++ b/
util/su-filter.pl
@@
-21,7
+21,7
@@
while(<>) {
if($in_su == 1) {
if(/}(.*);/) {
$out .= $_;
if($in_su == 1) {
if(/}(.*);/) {
$out .= $_;
-
print $out
;
+
do_output($out)
;
$in_su = 0;
} elsif(/^ *\} [^\s]+(\[\d*\])* = \{/) {
$tststr = $1;
$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";
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]+ )?\{/) {
$in_su = 0;
}
} elsif($incomm <= 0 && /( *)(static )?(const )?(union|struct) ([^\s]+ )?\{/) {
@@
-53,7
+53,7
@@
while(<>) {
$out = $_;
next;
} else {
$out = $_;
next;
} else {
-
print $_
;
+
do_output($_)
;
}
}
}
}
@@
-251,3
+251,10
@@
sub displayData {
}
return $out;
}
}
return $out;
}
+
+sub do_output {
+ my $out = shift;
+ # Strip any trailing whitespace
+ $out =~ s/\s+\n/\n/g;
+ print $out;
+}