Invoke program with --manhelp option only if
authorJim Meyering <jim@meyering.net>
Sat, 3 Oct 1998 19:15:41 +0000 (19:15 +0000)
committerJim Meyering <jim@meyering.net>
Sat, 3 Oct 1998 19:15:41 +0000 (19:15 +0000)
--name=STRING not specified.  Otherwise, this would fail with `yes'.

man/help2man

index cf496211a5ac86bd52144165a0042dfd67bfb972..3915df087a0d185e934e99fe998d1798ff5a0510 100755 (executable)
@@ -26,7 +26,7 @@ use strict;
 use Getopt::Long;
 use POSIX 'strftime';
 
-my $RCS_Id = '$Id: help2man,v 1.1 1998/09/09 13:47:43 meyering Exp $';
+my $RCS_Id = '$Id: help2man,v 1.2 1998/10/03 19:15:41 meyering Exp $';
 my $this_program = 'help2man';
 my $this_version = '0.0';
 
@@ -129,7 +129,9 @@ if ($include or $opt_include)
 @ENV{qw(LANGUAGE LANG LC_ALL)} = ('C') x 3;
 
 # Grab help and version paragraphs from executable
-my @help = split /\n\n+/, `$ARGV[0] --manhelp 2>/dev/null`;
+# Invoke program with `--manhelp' only if --name=STRING not specified.
+my @help = split /\n\n+/, `$ARGV[0] --manhelp 2>/dev/null`
+  if !defined $opt_name;
 my @version = split /\n\n+/, `$ARGV[0] --version 2>/dev/null`
     or die "$this_program: can't get `--version' info from $ARGV[0]\n";