diff options
author | Brendan O'Dea <bod@debian.org> | 2020-04-25 00:12:09 +1000 |
---|---|---|
committer | Brendan O'Dea <bod@debian.org> | 2020-04-25 00:12:09 +1000 |
commit | f01e520950614b4d57adb09e986f411bae5c1444 (patch) | |
tree | 3420b26fc51be5774c80d52e2c91a2911b891569 /help2man.PL | |
parent | fbec3d095651885358556f9be8c00f328b3c9272 (diff) | |
download | help2man-f01e520950614b4d57adb09e986f411bae5c1444.tar.gz |
Revert parsing change from previous versionv1.47.14
Diffstat (limited to 'help2man.PL')
-rwxr-xr-x | help2man.PL | 8 |
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; |