Check for negated option names when extracting params.

[wget] / util / paramcheck.pl

diff --git a/util/paramcheck.pl b/util/paramcheck.pl
index 9aa63ce10007527cdc95b99b01e24e98a05041fc..bc6b8cfdfb8efcda88404f60020ab587638c449a 100755 (executable)
--- a/util/paramcheck.pl
+++ b/util/paramcheck.pl
@@ -250,8 +250,14 @@ sub emit_undocumented_opts
     }
     my @options;
     foreach my $opt (@$opts) {
-        if (not $items{$opt->{long_name}} || $opt->{deprecated}) {
-            push @options, $opt->{long_name};
+        my $opt_name = $opt->{long_name};
+        if (not $items{$opt_name}
+          || ($opt_name !~ /^no/
+            ? $items{"no-$opt_name"}
+            : false)
+          || $opt->{deprecated})
+        {
+            push @options, $opt_name;
         }
     }