diff options
author | Achim Bohnet <ach@mpe.mpg.de> | 1998-02-11 18:29:20 +0100 |
---|---|---|
committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-12 16:36:53 +0000 |
commit | b74bceb9cc5d8f31510279b2c34ea465fe21fd8f (patch) | |
tree | 5e696dd77590856173a4d19bfa5c0d89b5779fd0 /pod/pod2man.PL | |
parent | da9788ee9703522615b8d8b2baff4bef1b196a10 (diff) | |
download | perl-b74bceb9cc5d8f31510279b2c34ea465fe21fd8f.tar.gz |
5.004_58 | _04: pod2*,perlpod: L<show this|man/section>
p4raw-id: //depot/perl@508
Diffstat (limited to 'pod/pod2man.PL')
-rw-r--r-- | pod/pod2man.PL | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/pod/pod2man.PL b/pod/pod2man.PL index 5c8afc7a6d..5e5dfb0b66 100644 --- a/pod/pod2man.PL +++ b/pod/pod2man.PL @@ -801,6 +801,9 @@ while (<>) { # no break -- usually we want C<> for this s/S<([^<>]*)>/nobreak($1)/eg; + # LREF: a la HREF L<show this text|man/section> + s:L<([^|>]+)\|[^>]+>:$1:g; + # LREF: a manpage(3f) s:L<([a-zA-Z][^\s\/]+)(\([^\)]+\))?>:the I<$1>$2 manpage:g; |