perl: open... || -> open... or (cont.)

Also: unfold a few lines, fix a space, add a missing parentheses.

Follow-up to 678e63934c #22036

Closes #22047
This commit is contained in:
Viktor Szakats 2026-06-16 15:40:07 +02:00
parent 1bb75af8e9
commit be8f24323e
No known key found for this signature in database
18 changed files with 44 additions and 58 deletions

View file

@ -89,7 +89,7 @@ sub single {
my $salist = 0;
my $copyright;
my $spdx;
open(F, "<:crlf", $f) ||
open(F, "<:crlf", $f) or
return 1;
while(<F>) {
$line++;
@ -212,7 +212,7 @@ HEAD
close(F);
if($inplace) {
open(O, ">$f") || return 1;
open(O, ">$f") or return 1;
print O @desc;
close(O);
}