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

@ -169,17 +169,17 @@ sub readlocalfile {
$i++;
# Lines starting with '#' are considered comments
if (/^\s*(#.*)/) {
if(/^\s*(#.*)/) {
next;
}
elsif (/^enable ([A-Z]+)$/) {
elsif(/^enable ([A-Z]+)$/) {
if(!defined($warnings_extended{$1})) {
print STDERR "invalid warning specified in .checksrc: \"$1\"\n";
next;
}
$warnings{$1} = $warnings_extended{$1};
}
elsif (/^disable ([A-Z]+)$/) {
elsif(/^disable ([A-Z]+)$/) {
if(!defined($warnings{$1})) {
print STDERR "invalid warning specified in .checksrc: \"$1\"\n";
next;
@ -187,10 +187,10 @@ sub readlocalfile {
# Accept-list
push @alist, $1;
}
elsif (/^banfunc ([^ ]*)/) {
elsif(/^banfunc ([^ ]*)/) {
$banfunc{$1} = $1;
}
elsif (/^allowfunc ([^ ]*)/) {
elsif(/^allowfunc ([^ ]*)/) {
undef $banfunc{$1};
}
else {
@ -344,7 +344,7 @@ readlocalfile($file);
do {
if("$wlist" !~ / $file /) {
my $fullname = $file;
$fullname = "$dir/$file" if ($fullname !~ '^\.?\.?/');
$fullname = "$dir/$file" if($fullname !~ '^\.?\.?/');
scanfile($fullname);
}
$file = shift @ARGV;