diff --git a/scripts/checkopts.pl b/scripts/checkopts.pl index bd7cd6e20458035ab2a18cdc748afe5417cbb2dd..2c6441502277e048a39e21bbf2591bebf884b7c8 100755 --- a/scripts/checkopts.pl +++ b/scripts/checkopts.pl @@ -12,12 +12,17 @@ while (my $line = <$c_fh>) { if ($line =~ /\{"(?[\w-]+)",.*,\s*(?:'(?.)'|(?\d+))\}/o) { push(@{$options->{$+{long}}}, ['source', $+{short}]); } - elsif ($line =~ /" (?:\-(?.), |\s*)--(?[\w-]+) /) { +} +close($c_fh); + +open(my $h_fh, '<', 'src/help.raw') or die("Can't read help.raw: $!"); +while (my $line = <$h_fh>) { + + if ($line =~ /^ (?:\-(?.), |\s*)--(?[\w-]+) /) { push(@{$options->{$+{long}}}, ['help', $+{short}]); } - } -close($c_fh); +close($h_fh); open(my $man_fh, '<', 'man/feh.1') or die("Can't read feh.1: $!"); while (my $line = <$man_fh>) {