mirror of
https://github.com/curl/curl.git
synced 2026-05-30 11:27:29 +03:00
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:
parent
6c7fc22f9d
commit
3b18aeb8bd
4 changed files with 28 additions and 5 deletions
|
|
@ -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";
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue