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 (file)
--- 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) {