From: Graham Barr <gbarr@pobox.com>
Date: Sat, 17 Oct 1998 12:57:54 +0000 (-0500)
Subject: handle '::' in section names properly
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=350ccacde22c7ee560c24442356e2a429691af6f;p=p5sagit%2Fp5-mst-13.2.git

handle '::' in section names properly
	Message-ID: <19981017125754.C510@pobox.com>
	Subject: Re: pod2html

p4raw-id: //depot/perl@2060
---

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index 2a90e1d..3994f5d 100644
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -1373,9 +1373,6 @@ sub process_L {
 	# LREF: a la HREF L<show this text|man/section>
 	$linktext = $1 if s:^([^|]+)\|::;
 
-	# a :: acts like a /
-	s,::,/,;
-
 	# make sure sections start with a /
 	s,^",/",g;
 	s,^,/,g if (!m,/, && / /);
@@ -1399,6 +1396,11 @@ sub process_L {
     if ($page eq "") {
 	$link = "#" . htmlify(0,$section);
 	$linktext = $section unless defined($linktext);
+    } elsif ( $page =~ /::/ ) {
+	$linktext  = ($section ? "$section" : "$page");
+	$page =~ s,::,/,g;
+	$link = "$htmlroot/$page.html";
+	$link .= "#" . htmlify(0,$section) if ($section);
     } elsif (!defined $pages{$page}) {
 	warn "$0: $podfile: cannot resolve L<$str> in paragraph $paragraph: no such page '$page'\n";
 	$link = "";