Commit 7b1b00213e776ca4138bc0fc7d443211c44a0669

Thomas de Grivel 2023-01-21T15:08:36

help2man-1.27

diff --git a/ChangeLog b/ChangeLog
index 9a654e9..e23c388 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Tue Mar 19 23:52:37 2002  Brendan O'Dea  <bod@debian.org>
+
+	* help2man.PL: Allow short and long options to be separated by
+	  multiple spaces (Paul Eggert).
+
 Sat Mar  9 23:54:01 2002  Brendan O'Dea  <bod@debian.org>
 
 	* help2man.PL: version bump for doc changes
diff --git a/NEWS b/NEWS
index f459960..b19ba13 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,12 @@
+Version 1.27		March 19, 2002
+
+ * Allow short and long options to be separated by multiple spaces
+   rather than a comma.
+
+Version 1.26		March 9, 2002
+
+ * Documentation updates giving suggested --help output.
+
 Version 1.25		December 3, 2001
 
  * New --source and --manual options to allow the page headers and
diff --git a/README b/README
index d30c32b..a6716aa 100644
--- a/README
+++ b/README
@@ -1,12 +1,12 @@
                         README for GNU help2man
-                              version 1.26
-                             March 10, 2002
+                              version 1.27
+                             March 19, 2002
 
 help2man is a script to create simple man pages from the --help and
 --version output of programs.
 
   http://www.gnu.org/software/help2man/
-  ftp://ftp.gnu.org/gnu/help2man/help2man-1.26.tar.gz
+  ftp://ftp.gnu.org/gnu/help2man/help2man-1.27.tar.gz
 
 Since most GNU documentation is now in info format, this provides a
 way to generate a placeholder man page pointing to that resource while
diff --git a/THANKS b/THANKS
index 13b832b..2089e3e 100644
--- a/THANKS
+++ b/THANKS
@@ -2,9 +2,10 @@ A list of people who have contributed to the development of `help2man'
 by reporting problems, suggesting various improvements or submitting
 actual code follows.
 
-Karl Berry			<karl@cs.umb.edu>
+Karl Berry			<karl@freefriends.org>
 Mo DeJong			<mdejong@cygnus.com>
 Akim Demaille			<demaille@inf.enst.fr>
+Paul Eggert			<eggert@twinsun.com>
 Roland Huebner			<rh@pelikan.cologne.de>
 Matt Kraai			<kraai@alumni.carnegiemellon.edu>
 Jim Meyering			<meyering@ascend.com>
diff --git a/help2man.PL b/help2man.PL
index 7596229..62a9675 100755
--- a/help2man.PL
+++ b/help2man.PL
@@ -16,7 +16,7 @@ use Config;
 use Getopt::Long;
 
 my ($program, $version)
-    = (qw$Id: help2man.PL,v 1.26 2002/03/09 12:54:01 bod Exp $)[1..2];
+    = (qw$Id: help2man.PL,v 1.27 2002/03/19 12:52:37 bod Exp $)[1..2];
 
 $program =~ s/\.PL(,v)?$//;
 
@@ -59,7 +59,7 @@ eval 'exec $Config{perlpath} -wS \$0 \${1+"\$@"}'
 print OUT <<'!NO!SUBS!';
 
 # Generate a short man page from --help and --version output.
-# Copyright © 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
+# Copyright © 1997-2002 Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -97,7 +97,7 @@ print OUT <<'!NO!SUBS!';
 my $version_info = <<EOT;
 GNU $this_program $this_version
 
-Copyright (C) 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
+Copyright (C) 1997-2002 Free Software Foundation, Inc.
 This is free software; see the source for copying conditions.  There is NO
 warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
@@ -467,7 +467,7 @@ while (length)
     my $content = '';
 
     # Option with description.
-    if (s/^( {1,10}([+-]\S.*?))(?:(  +)|\n( {20,}))(\S.*)\n//)
+    if (s/^( {1,10}([+-]\S.*?))(?:(  +(?!-))|\n( {20,}))(\S.*)\n//)
     {
 	$matched .= $& if %append;
 	$indent = length ($4 || "$1$3");