mirror of
https://github.com/curl/curl.git
synced 2026-08-01 11:58:04 +03:00
scripts: drop redundant double-quotes: "$var" -> $var (Perl)
Closes #21009
This commit is contained in:
parent
f45bf74b5a
commit
d5014a2b95
33 changed files with 161 additions and 161 deletions
|
|
@ -43,7 +43,7 @@ my $nroff2cd = "0.1"; # to keep check
|
|||
|
||||
sub single {
|
||||
my ($f)=@_;
|
||||
open(F, "<:crlf", "$f") ||
|
||||
open(F, "<:crlf", $f) ||
|
||||
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) || return 1;
|
||||
}
|
||||
if($d =~ /^\.TH ([^ ]*) (\d) \"(.*?)\" ([^ \n]*)/) {
|
||||
# header, this needs to be the first thing after leading comments
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue