Loading man/feh.1 +636 −656 File changed.Preview size limit exceeded, changes collapsed. Show changes scripts/checkopts.pl +1 −1 Original line number Original line Diff line number Diff line Loading @@ -22,7 +22,7 @@ close($c_fh); open(my $man_fh, '<', 'man/feh.1') or die("Can't read feh.1: $!"); open(my $man_fh, '<', 'man/feh.1') or die("Can't read feh.1: $!"); while (my $line = <$man_fh>) { while (my $line = <$man_fh>) { if ($line =~ /^\.B (?:-(?<short>.), )?--(?<long>[\w-]+)/) { if ($line =~ /^\.It Cm (?:-(?<short>.) , )?--(?<long>[\w-]+)/) { push(@{$options->{$+{long}}}, ['manual', $+{short}]); push(@{$options->{$+{long}}}, ['manual', $+{short}]); } } Loading Loading
scripts/checkopts.pl +1 −1 Original line number Original line Diff line number Diff line Loading @@ -22,7 +22,7 @@ close($c_fh); open(my $man_fh, '<', 'man/feh.1') or die("Can't read feh.1: $!"); open(my $man_fh, '<', 'man/feh.1') or die("Can't read feh.1: $!"); while (my $line = <$man_fh>) { while (my $line = <$man_fh>) { if ($line =~ /^\.B (?:-(?<short>.), )?--(?<long>[\w-]+)/) { if ($line =~ /^\.It Cm (?:-(?<short>.) , )?--(?<long>[\w-]+)/) { push(@{$options->{$+{long}}}, ['manual', $+{short}]); push(@{$options->{$+{long}}}, ['manual', $+{short}]); } } Loading