scripts: drop redundant double-quotes: "$var" -> $var (Perl)

Closes #21009
This commit is contained in:
Viktor Szakats 2026-03-19 01:15:43 +01:00
parent f45bf74b5a
commit d5014a2b95
No known key found for this signature in database
33 changed files with 161 additions and 161 deletions

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) ||
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