diff options
| author | Daniel Friesel <derf@derf.homelinux.org> | 2010-04-22 19:41:02 +0200 |
|---|---|---|
| committer | Daniel Friesel <derf@derf.homelinux.org> | 2010-04-22 19:41:02 +0200 |
| commit | 1dd56181c7c8ed4612fa0e42b46e1c9bf35c922c (patch) | |
| tree | 06cb7e89d4afd1f2c4d827f1b455ca7762e130f2 /scripts/checkopts.pl | |
| parent | 0da6b6d254be180d921d07996289389bea13fc4b (diff) | |
| download | feh-1dd56181c7c8ed4612fa0e42b46e1c9bf35c922c.zip | |
Rewrite feh(1) using -mdoc macros
Diffstat (limited to 'scripts/checkopts.pl')
| -rwxr-xr-x | scripts/checkopts.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scripts/checkopts.pl b/scripts/checkopts.pl index a2fe2b5..bd7cd6e 100755 --- a/scripts/checkopts.pl +++ b/scripts/checkopts.pl @@ -22,7 +22,7 @@ close($c_fh); open(my $man_fh, '<', 'man/feh.1') or die("Can't read feh.1: $!"); while (my $line = <$man_fh>) { - if ($line =~ /^\.B (?:-(?<short>.), )?--(?<long>[\w-]+)/) { + if ($line =~ /^\.It Cm (?:-(?<short>.) , )?--(?<long>[\w-]+)/) { push(@{$options->{$+{long}}}, ['manual', $+{short}]); } |