diff options
Diffstat (limited to 'pod')
| -rw-r--r-- | pod/perldelta.pod | 7 | ||||
| -rw-r--r-- | pod/pod2man.PL | 20 |
2 files changed, 18 insertions, 9 deletions
diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 3d9c532f52..738d7f9381 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -360,13 +360,6 @@ to skip installing perl also as /usr/bin/perl. This is useful if you prefer not to modify /usr/bin for some reason or another but harmful because many scripts assume to find Perl in /usr/bin/perl. -=head1 Configuration Changes - -You can use "Configure -Uinstallusrbinperl" which causes installperl -to skip installing perl also as /usr/bin/perl. This is useful if you -prefer not to modify /usr/bin for some reason or another but harmful -because many scripts assume to find Perl in /usr/bin/perl. - =head1 BUGS If you find what you think is a bug, you might check the headers of 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) { |