From 9b8cba8a1281287d825d29665ecc624bbef615f2 Mon Sep 17 00:00:00 2001
From: Steven Schubiger <stsc@member.fsf.org>
Date: Mon, 29 Jun 2009 13:38:30 +0200
Subject: [PATCH] Check for negated option names when extracting params.

---
 util/paramcheck.pl | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/util/paramcheck.pl b/util/paramcheck.pl
index 9aa63ce1..bc6b8cfd 100755
--- 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;
         }
     }
 
-- 
2.39.2