diff options
| author | Abigail <abigail@abigail.be> | 1999-02-28 05:59:16 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-28 21:21:05 +0000 |
| commit | 056534bf6b6b1b89850de37d21bf18c33cca9bd7 (patch) | |
| tree | 8f99514b6cacbeff25cb713f30aca0ab08a84308 /pod/pod2man.PL | |
| parent | 2680586ee66b8de4d2b5f26a2013220f2bec9d5f (diff) | |
| download | perl-056534bf6b6b1b89850de37d21bf18c33cca9bd7.tar.gz | |
Recognize -> and => inside [A-Z]<> sequences.
Message-ID: <19990228155916.14496.qmail@alexandra.wayne.fnx.com>
p4raw-id: //depot/perl@3038
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) { |