From: Abigail <abigail@abigail.be>
Date: Sun, 28 Feb 1999 10:59:16 +0000 (-0500)
Subject: Recognize -> and => inside [A-Z]<> sequences.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=056534bf6b6b1b89850de37d21bf18c33cca9bd7;p=p5sagit%2Fp5-mst-13.2.git

Recognize -> and => inside [A-Z]<> sequences.

	Message-ID: <19990228155916.14496.qmail@alexandra.wayne.fnx.com>

p4raw-id: //depot/perl@3038
---

diff --git a/pod/pod2man.PL b/pod/pod2man.PL
index 3c55d6e..11bb74b 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) {