managen: verify the options used in example lines

Also fix the --knownhosts typo

Follow-up to aae18c4bdc

Reported-by: Daniel Terhorst-North
URL: https://mas.to/@tastapod/115327102344617386
Closes #18884
This commit is contained in:
Daniel Stenberg 2025-10-06 14:41:14 +02:00
parent 6c7fc22f9d
commit 3b18aeb8bd
No known key found for this signature in database
GPG key ID: 5CC908FDB71E12C2
4 changed files with 28 additions and 5 deletions

View file

@ -880,6 +880,29 @@ sub single {
if($examples[0]) {
my $s ="";
$s="s" if($examples[1]);
foreach my $e (@examples) {
my $check = $e;
# verify the used options
for my $e (split(/ /, $check)) {
if($e =~ /^-([^- ])/) {
my $opt = $1;
if(!$optshort{$opt}) {
print STDERR "$f:$line:1:ERROR: unknown option in ".
"example: -$opt\n";
return 2;
}
}
elsif($e =~ /^--([^ =]*)/) {
my $opt = $1;
$opt =~ s/^expand-//g;
if(!$helplong{$opt}) {
print STDERR "$f:$line:1:ERROR: unknown option in ".
"example: '--$opt'\n";
return 2;
}
}
}
}
if($manpage) {
print "\nExample$s:\n";
print ".nf\n";