romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-08-05 18:36:13 +03:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
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
Download patch file Download diff file Expand all files Collapse all files

4
scripts/nroff2cd
View file

@ -43,7 +43,7 @@ my $nroff2cd = "0.1"; # to keep check
sub single {
my ($f) = @_;
open(F, "<:crlf", $f) ||
open(F, "<:crlf", $f) or
return 1;
my $line;
my $title;
@ -67,7 +67,7 @@ sub single {
# remove leading directory
$f =~ s/(.*?\/)//;
close(F);
open(F, "<:crlf", $f) || return 1;
open(F, "<:crlf", $f) or return 1;
}
if($d =~ /^\.TH ([^ ]*) (\d) \"(.*?)\" ([^ \n]*)/) {
# header, this needs to be the first thing after leading comments