ソースを参照

Change checkOptionDocs.pl to be case sensitive

Sebastian Hahn 14 年 前
コミット
12c4bb6b62
1 ファイル変更3 行追加5 行削除
  1. 3 5
      contrib/checkOptionDocs.pl

+ 3 - 5
contrib/checkOptionDocs.pl

@@ -8,13 +8,11 @@ my %torrcCompleteOptions = ();
 my %manPageOptions = ();
 my %manPageOptions = ();
 
 
 # Load the canonical list as actually accepted by Tor.
 # Load the canonical list as actually accepted by Tor.
-my $mostRecentOption;
 open(F, "./src/or/tor --list-torrc-options |") or die;
 open(F, "./src/or/tor --list-torrc-options |") or die;
 while (<F>) {
 while (<F>) {
     next if m!\[notice\] Tor v0\.!;
     next if m!\[notice\] Tor v0\.!;
     if (m!^([A-Za-z0-9_]+)!) {
     if (m!^([A-Za-z0-9_]+)!) {
-        $mostRecentOption = lc $1;
-        $options{$mostRecentOption} = 1;
+        $options{$1} = 1;
     } else {
     } else {
         print "Unrecognized output> ";
         print "Unrecognized output> ";
         print;
         print;
@@ -30,7 +28,7 @@ sub loadTorrc {
     while (<F>) {
     while (<F>) {
         next if (m!##+!);
         next if (m!##+!);
         if (m!#([A-Za-z0-9_]+)!) {
         if (m!#([A-Za-z0-9_]+)!) {
-            $options->{lc $1} = 1;
+            $options->{$1} = 1;
         }
         }
     }
     }
     close F;
     close F;
@@ -46,7 +44,7 @@ my $considerNextLine = 0;
 open(F, "./doc/tor.1.txt") or die;
 open(F, "./doc/tor.1.txt") or die;
 while (<F>) {
 while (<F>) {
     if (m!^\*\*([A-Za-z0-9_]+)\*\*!) {
     if (m!^\*\*([A-Za-z0-9_]+)\*\*!) {
-        $manPageOptions{lc $1} = 1;
+        $manPageOptions{$1} = 1;
     }
     }
 }
 }
 close F;
 close F;