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

@ -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;