tidy-up: whitespace (more in Perl)

Follow-up to 8eab2b7086 #17896
Cherry-picked from #17877
Closes #17901
This commit is contained in:
Viktor Szakats 2025-07-11 16:04:24 +02:00
parent 8eab2b7086
commit ddcfd2d511
No known key found for this signature in database
GPG key ID: B5ABD165E2AEF201
43 changed files with 84 additions and 98 deletions

View file

@ -44,7 +44,7 @@ const unsigned char ${varname}[] = {
HEAD
;
while (<STDIN>) {
while(<STDIN>) {
my $line = $_;
foreach my $n (split //, $line) {
my $ord = ord($n);

View file

@ -34,7 +34,7 @@ push @out, " / __| | | | |_) | |\n";
push @out, " | (__| |_| | _ <| |___\n";
push @out, " \\___|\\___/|_| \\_\\_____|\n";
while (<STDIN>) {
while(<STDIN>) {
my $line = $_;
push @out, $line;
}
@ -58,7 +58,7 @@ if($c) {
IO::Compress::Gzip->import();
1;
};
print STDERR "Warning: compression requested but Gzip is not available\n" if (!$c)
print STDERR "Warning: compression requested but Gzip is not available\n" if(!$c)
}
if($c)