luo980/curl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gen.pl: escape all dashes (ascii minus) to avoid unicode hyphens

Browse Source 
Reported-by: FC Stegerman
Fixes #11635
Closes #11637
This commit is contained in:
Daniel Stenberg 2023-08-09 09:00:23 +02:00
parent a9c444d7f4
commit 6911fec8b2
No known key found for this signature in database
GPG Key ID: 5CC908FDB71E12C2
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
docs/cmdline-opts/gen.pl
View File

@ -68,11 +68,11 @@ sub manpageify {
my $l;
if($optlong{$k} ne "") {
# both short + long
$l = "\\fI-".$optlong{$k}.", --$k\\fP";
$l = "\\fI-".$optlong{$k}.", \\-\\-$k\\fP";
}
else {
# only long
$l = "\\fI--$k\\fP";
$l = "\\fI\\-\\-$k\\fP";
}
return $l;
}
@ -117,8 +117,7 @@ sub printdesc {
}
}
# quote "bare" minuses in the output
$d =~ s/( |\\fI|^)--/$1\\-\\-/g;
$d =~ s/([ -]|\\fI|^)-/$1\\-/g;
$d =~ s/([^\\])-/$1\\-/g;
# handle single quotes first on the line
$d =~ s/^(\s*)\'/$1\\(aq/;
# handle double quotes first on the line
@ -450,6 +449,7 @@ sub single {
print "\nExample$s:\n.nf\n";
foreach my $e (@examples) {
$e =~ s!\$URL!https://example.com!g;
$e =~ s/\-/\\-/g;
print " curl $e\n";
}
print ".fi\n";