diff options
| author | Chip Salzenberg <chip@perl.com> | 1997-01-31 21:37:53 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-02-04 17:47:00 +1200 |
| commit | 1e2391a57262df6d4a5a23e03fbc4e35a9a88e79 (patch) | |
| tree | df376df12042d15fbae85338780a01e2bbf3052d /pod/pod2man.PL | |
| parent | 88793d73732ce69a444233da19c5b7ee8431f5a2 (diff) | |
| download | perl-1e2391a57262df6d4a5a23e03fbc4e35a9a88e79.tar.gz | |
Make pod2man a little laxer for perltoc.pod
Diffstat (limited to 'pod/pod2man.PL')
| -rw-r--r-- | pod/pod2man.PL | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/pod/pod2man.PL b/pod/pod2man.PL index c03e73db26..fdcfa73fc5 100644 --- a/pod/pod2man.PL +++ b/pod/pod2man.PL @@ -684,18 +684,16 @@ while (<>) { ) } {I<$1>}gx; - # func(n) is a reference to a man page + # func(n) is a reference to a perl function or a man page s{ - (\w+) + ([:\w]+) ( - \( - [^\s,\051]+ - \) + \( [^\051]+ \) ) } {I<$1>\\|$2}gx; # convert simple variable references - s/(\s+)([\$\@%][\w:]+)/${1}C<$2>/g; + s/(\s+)([\$\@%][\w:]+)(?!\()/${1}C<$2>/g; if (m{ ( [\-\w]+ |