diff options
author | Jim Meyering <jim@meyering.net> | 2000-01-06 22:49:01 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 2000-01-06 22:49:01 +0000 |
commit | eff6393e39990f4ca158bb7fca8cf859ca025edf (patch) | |
tree | 173b14c4e74fa9d28721d0efd6e53b3a84d6e86b | |
parent | bbe0894eb223c1c28399056c901066e5e719c05e (diff) | |
download | coreutils-eff6393e39990f4ca158bb7fca8cf859ca025edf.tar.xz |
Import version 1.020.
-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; |