mirror of
https://github.com/curl/curl.git
synced 2026-07-05 19:37:16 +03:00
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:
parent
1bb75af8e9
commit
be8f24323e
18 changed files with 44 additions and 58 deletions
|
|
@ -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);
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue