summaryrefslogtreecommitdiff
path: root/help2man.PL
diff options
context:
space:
mode:
authorBrendan O'Dea <bod@debian.org>2020-04-25 00:12:09 +1000
committerBrendan O'Dea <bod@debian.org>2020-04-25 00:12:09 +1000
commitf01e520950614b4d57adb09e986f411bae5c1444 (patch)
tree3420b26fc51be5774c80d52e2c91a2911b891569 /help2man.PL
parentfbec3d095651885358556f9be8c00f328b3c9272 (diff)
downloadhelp2man-f01e520950614b4d57adb09e986f411bae5c1444.tar.gz
Revert parsing change from previous versionv1.47.14
Diffstat (limited to 'help2man.PL')
-rwxr-xr-xhelp2man.PL8
1 files changed, 4 insertions, 4 deletions
diff --git a/help2man.PL b/help2man.PL
index 956a8bc..c55e7de 100755
--- a/help2man.PL
+++ b/help2man.PL
@@ -16,7 +16,7 @@ use 5.008;
use Config;
use Getopt::Long;
-my ($program, $version) = ('help2man', '1.47.13');
+my ($program, $version) = ('help2man', '1.47.14');
my %opts;
die "Usage: $0 [--quiet] [--stdout] [--with-gettext] [--name] [--version]\n"
@@ -410,14 +410,14 @@ if ($opt_output)
($_, $version_text) = ((split /\n+/, $version_text, 2), '');
-if (/^(\S+) +\(((?:GNU|Free) +[^)]+)\) +(\S+)$/ or
- /^(\S+) +- *((?:GNU|Free) +\S.*) +(\S+)$/)
+if (/^(\S+) +\(((?:GNU|Free) +[^)]+)\) +(\S.*)$/ or
+ /^(\S+) +- +((?:GNU|Free) +\S+) +(\S.*)$/)
{
$program = program_basename $1;
$package = $2;
$version = $3;
}
-elsif (/^((?:GNU|Free) +)?(\S.*) +(\S+)$/)
+elsif (/^((?:GNU|Free) +)?(\S+) +(\S.*)$/)
{
$program = program_basename $2;
$package = $1 ? "$1$program" : $program;