tidy-up: add spaces around equal operators where missing

Found via regex search: `=[^~>= ]`

Closes #21975
This commit is contained in:
Viktor Szakats 2026-06-11 17:22:30 +02:00
parent 2a606c68fa
commit e35ba09f47
No known key found for this signature in database
56 changed files with 593 additions and 596 deletions

View file

@ -442,10 +442,10 @@ while(<STDIN>) {
next;
}
if($_ =~ /^CURLOPT(?:DEPRECATED)?\(([^ ]*), ([^ ]*), (\d*)[,)]/) {
my ($name, $type, $val)=($1, $2, $3);
my $w=" ";
my $w2="$w$w";
my $w3="$w$w$w";
my ($name, $type, $val) = ($1, $2, $3);
my $w = " ";
my $w2 = "$w$w";
my $w3 = "$w$w$w";
my $opt = $name;
$opt =~ s/^CURLOPT_//;
my $exists = "${w}{\n";
@ -563,7 +563,7 @@ MOO
}
elsif($type eq "CURLOPTTYPE_FUNCTIONPOINT") {
if($name =~ /([^ ]*)FUNCTION/) {
my $l=lc($1);
my $l = lc($1);
$l =~ s/^curlopt_//;
print $fh "${fpref}\n$i${l}cb);\n$fcheck";
}
@ -594,7 +594,7 @@ MOO
}
elsif($infomode &&
($_ =~ /^CURLINFO_([^ ]*) *= *CURLINFO_([^ ]*)/)) {
my ($info, $type)=($1, $2);
my ($info, $type) = ($1, $2);
my $c = " result = curl_easy_getinfo(curl, CURLINFO_$info,";
my $check = " if(result)\n t1521_geterr(\"$info\", result, __LINE__);\n";
if($type eq "STRING") {

View file

@ -32,10 +32,10 @@ if($#ARGV != 2) {
exit 3;
}
my $what=$ARGV[2];
my $what = $ARGV[2];
# Read the output of curl --version
my $curl_protocols="";
my $curl_protocols = "";
open(CURL, $ARGV[1]) || die "Cannot get curl $what list\n";
while(<CURL>) {
$curl_protocols = $_ if(/$what:/i);

View file

@ -31,7 +31,7 @@ if($#ARGV != 2) {
exit 3;
}
my $what=$ARGV[2];
my $what = $ARGV[2];
# Read the output of curl --version
open(CURL, $ARGV[1]) || die "Cannot open curl --version list in $ARGV[1]\n";
@ -47,7 +47,7 @@ my $curlconfigversion;
open(CURLCONFIG, '-|', 'sh', $ARGV[0], "--$what") || die "Cannot get curl-config --$what list\n";
$_ = <CURLCONFIG>;
chomp;
my $filever=$_;
my $filever = $_;
if($what eq "version") {
if($filever =~ /^libcurl ([\.\d]+((-DEV)|(-rc\d)|(-\d+))?)$/) {
$curlconfigversion = $1;