summaryrefslogtreecommitdiff
path: root/man/help2man
diff options
context:
space:
mode:
authorJim Meyering <jim@meyering.net>2000-01-06 22:49:01 +0000
committerJim Meyering <jim@meyering.net>2000-01-06 22:49:01 +0000
commiteff6393e39990f4ca158bb7fca8cf859ca025edf (patch)
tree173b14c4e74fa9d28721d0efd6e53b3a84d6e86b /man/help2man
parentbbe0894eb223c1c28399056c901066e5e719c05e (diff)
downloadcoreutils-eff6393e39990f4ca158bb7fca8cf859ca025edf.tar.xz
Import version 1.020.
Diffstat (limited to 'man/help2man')
-rwxr-xr-xman/help2man7
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;