diff options
| author | Abigail <abigail@abigail.be> | 1999-03-01 09:11:36 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-03-04 03:37:38 +0000 |
| commit | 31873dd158564755e261eee3e1f9bf51384dc563 (patch) | |
| tree | 4b47656d3777406d27895b55cce6f7769c0fb549 /pod/pod2man.PL | |
| parent | d66be8f9dd1950d2f1f2cf54b4a12386009c7aa5 (diff) | |
| download | perl-31873dd158564755e261eee3e1f9bf51384dc563.tar.gz | |
better version of change#3038
Message-ID: <19990301191136.5557.qmail@alexandra.wayne.fnx.com>
Subject: Re: [PATCH 5.005_03 TRIAL-5 pod/pod2man.PL] Recognize -> and => inside
p4raw-link: @3038 on //depot/perl: 056534bf6b6b1b89850de37d21bf18c33cca9bd7
p4raw-id: //depot/perl@3060
Diffstat (limited to 'pod/pod2man.PL')
| -rw-r--r-- | pod/pod2man.PL | 20 |
1 files changed, 18 insertions, 2 deletions
diff --git a/pod/pod2man.PL b/pod/pod2man.PL index 11bb74bd67..61b6129ed9 100644 --- a/pod/pod2man.PL +++ b/pod/pod2man.PL @@ -678,8 +678,24 @@ $indent = 0; $begun = ""; -# Unrolling [^-=A-Z>]|[A-Z](?!<)|[-=][\x00-\xFF] gives: // MRE pp 165. -my $nonest = '(?:[^-=A-Z>]*(?:(?:[-=][\x00-\xFF]|[A-Z](?!<))[^-=A-Z>]*)*)'; +# Unrolling [^-=A-Z>]|[A-Z](?!<)|[-=](?![A-Z]<)[\x00-\xFF] gives: // MRE pp 165. +my $nonest = '(?x) # Turn on /x mode. + (?: # Group + [^-=A-Z>]* # Anything that isn't a dash, equal sign or + # closing hook isn't special. Eat as much as + # we can. + (?: # Group. + (?: # Group. + [-=] # We want to recognize -> and =>. + (?![A-Z]<) # So, as long as it isn't followed by markup + [\x00-\xFF] # anything may follow - and = + | + [A-Z] # Capitals are fine too, + (?!<) # But not if they start markup. + ) # End of special sequences. + [^-=A-Z>]* # Followed by zero or more non-special chars. + )* # And we can repeat this as often as we can. + )'; # That's all folks. while (<>) { if ($cutting) { |