From: Chip Salzenberg <chip@perl.com>
Date: Fri, 31 Jan 1997 09:37:53 +0000 (+1200)
Subject: Make pod2man a little laxer for perltoc.pod
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1e2391a57262df6d4a5a23e03fbc4e35a9a88e79;p=p5sagit%2Fp5-mst-13.2.git

Make pod2man a little laxer for perltoc.pod
---

diff --git a/pod/pod2man.PL b/pod/pod2man.PL
index c03e73d..fdcfa73 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]+