mirror of
https://gitlab.torproject.org/tpo/core/tor.git
synced 2024-11-24 04:13:28 +01:00
Change checkOptionDocs.pl to be case sensitive
This commit is contained in:
parent
6b4db953c9
commit
12c4bb6b62
@ -8,13 +8,11 @@ my %torrcCompleteOptions = ();
|
||||
my %manPageOptions = ();
|
||||
|
||||
# Load the canonical list as actually accepted by Tor.
|
||||
my $mostRecentOption;
|
||||
open(F, "./src/or/tor --list-torrc-options |") or die;
|
||||
while (<F>) {
|
||||
next if m!\[notice\] Tor v0\.!;
|
||||
if (m!^([A-Za-z0-9_]+)!) {
|
||||
$mostRecentOption = lc $1;
|
||||
$options{$mostRecentOption} = 1;
|
||||
$options{$1} = 1;
|
||||
} else {
|
||||
print "Unrecognized output> ";
|
||||
print;
|
||||
@ -30,7 +28,7 @@ sub loadTorrc {
|
||||
while (<F>) {
|
||||
next if (m!##+!);
|
||||
if (m!#([A-Za-z0-9_]+)!) {
|
||||
$options->{lc $1} = 1;
|
||||
$options->{$1} = 1;
|
||||
}
|
||||
}
|
||||
close F;
|
||||
@ -46,7 +44,7 @@ my $considerNextLine = 0;
|
||||
open(F, "./doc/tor.1.txt") or die;
|
||||
while (<F>) {
|
||||
if (m!^\*\*([A-Za-z0-9_]+)\*\*!) {
|
||||
$manPageOptions{lc $1} = 1;
|
||||
$manPageOptions{$1} = 1;
|
||||
}
|
||||
}
|
||||
close F;
|
||||
|
Loading…
Reference in New Issue
Block a user