diff options
Diffstat (limited to 'pod')
| -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]+ |