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

@ -35,7 +35,7 @@ my $what=$ARGV[2];
my $curl_protocols="";
open(CURL, "$ARGV[1]") || die "Can't get curl $what list\n";
while(<CURL>) {
$curl_protocols = $_ if ( /$what:/i );
$curl_protocols = $_ if(/$what:/i);
}
close CURL;

View file

@ -36,8 +36,7 @@ sub errout {
exit 1;
}
if($ARGV[0] eq "prepare")
{
if($ARGV[0] eq "prepare") {
my $dirname = $ARGV[1];
mkdir $dirname || errout "$!";
chdir $dirname;
@ -71,8 +70,7 @@ if($ARGV[0] eq "prepare")
exit 0;
}
elsif($ARGV[0] eq "postprocess")
{
elsif($ARGV[0] eq "postprocess") {
my $dirname = $ARGV[1];
my $logfile = $ARGV[2];