diff options
Diffstat (limited to 'man/help2man')
| -rwxr-xr-x | man/help2man | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/man/help2man b/man/help2man index 109547c55..1728036af 100755 --- a/man/help2man +++ b/man/help2man @@ -1,4 +1,4 @@ -#!/sw/tools/bin/perl -w +#!/usr/bin/perl -w # Generate a short man page from --help and --version output. # Copyright © 1997, 98, 99 Free Software Foundation, Inc. @@ -27,7 +27,7 @@ use Text::Tabs qw(expand); use POSIX qw(strftime setlocale LC_TIME); my $this_program = 'help2man'; -my $this_version = '1.019'; +my $this_version = '1.020'; my $version_info = <<EOT; $this_program $this_version @@ -239,7 +239,8 @@ if ($help_text =~ s/^Usage:( +(\S+))(.*)((?:\n(?: {6}\1| *or: +\S).*)*)//m) for (@syn) { $synopsis .= ".br\n" if $synopsis; - s/(\S+) *//; + s!^\S*/!!; + s/^(\S+) *//; $synopsis .= ".B $1\n"; s/\s+$//; s/(([][]|\.\.+)+)/\\fR$1\\fI/g; |