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

@ -30,7 +30,7 @@ use warnings;
use File::Copy;
my $docroot="https://curl.se/libcurl/c";
my $docroot = "https://curl.se/libcurl/c";
for my $f (@ARGV) {
open(NEW, ">$f.new");

View file

@ -47,15 +47,15 @@ my %doc;
my %rem;
while(<S>) {
if(/(^CURL[^ \n]*) *(.*)/) {
my ($sym, $rest)=($1, $2);
my @a=split(/ +/, $rest);
my ($sym, $rest) = ($1, $2);
my @a = split(/ +/, $rest);
$doc{$sym}=$a[0]; # when it was introduced
$doc{$sym} = $a[0]; # when it was introduced
if($a[2]) {
# this symbol is documented to have been present the last time
# in this release
$rem{$sym}=$a[2];
$rem{$sym} = $a[2];
}
}
}
@ -63,9 +63,9 @@ while(<S>) {
close(S);
sub age {
my ($ver)=@_;
my ($ver) = @_;
my @s=split(/\./, $ver);
my @s = split(/\./, $ver);
return $s[0]*10000+$s[1]*100+($s[2] || 0);
}

View file

@ -70,7 +70,7 @@ HEADER
;
sub nameref {
my ($n)=@_;
my ($n) = @_;
if($n =~ /^CURLOPT_/) {
if($n eq "CURLOPT_RTSPHEADER") {
$n = "CURLOPT_HTTPHEADER";
@ -289,7 +289,7 @@ sub nameref {
while(<STDIN>) {
if($_ =~ /^(CURL[A-Z0-9_.]*) *(.*)/i) {
my ($symbol, $rest)=($1,$2);
my ($symbol, $rest) = ($1, $2);
my ($intro, $dep, $rem);
if($rest =~ s/^([0-9.]*) *//) {
$intro = $1;

View file

@ -50,7 +50,7 @@ use warnings;
open F, "<symbols-in-versions";
sub str2num {
my ($str)=@_;
my ($str) = @_;
if($str && $str =~ /([0-9]*)\.([0-9]*)\.*([0-9]*)/) {
return sprintf("0x%06x", $1 << 16 | $2 << 8 | ($3 || '0'));
}
@ -69,7 +69,7 @@ EOS
while(<F>) {
if(/^(CURL[^ ]*)[ \t]*(.*)/) {
my ($sym, $vers)=($1, $2);
my ($sym, $vers) = ($1, $2);
my $intr;
my $rm;
@ -77,11 +77,11 @@ while(<F>) {
# is there removed info?
if($vers =~ /([\d.]+)[ \t-]+([\d.-]+)[ \t]+([\d.]+)/) {
($intr, $dep, $rm)=($1, $2, $3);
($intr, $dep, $rm) = ($1, $2, $3);
}
# is it a dep-only line?
elsif($vers =~ /([\d.]+)[ \t-]+([\d.]+)/) {
($intr, $dep)=($1, $2);
($intr, $dep) = ($1, $2);
}
else {
$intr = $vers;