diff options
Diffstat (limited to 'pod/pod2man.PL')
| -rw-r--r-- | pod/pod2man.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/pod/pod2man.PL b/pod/pod2man.PL index 3c55d6e29c..11bb74bd67 100644 --- a/pod/pod2man.PL +++ b/pod/pod2man.PL @@ -678,8 +678,8 @@ $indent = 0; $begun = ""; -# Unrolling [^A-Z>]|[A-Z](?!<) gives: // MRE pp 165. -my $nonest = '(?:[^A-Z>]*(?:[A-Z](?!<)[^A-Z>]*)*)'; +# Unrolling [^-=A-Z>]|[A-Z](?!<)|[-=][\x00-\xFF] gives: // MRE pp 165. +my $nonest = '(?:[^-=A-Z>]*(?:(?:[-=][\x00-\xFF]|[A-Z](?!<))[^-=A-Z>]*)*)'; while (<>) { if ($cutting) { |