diff options
| author | Axel Kollmorgen <unknown> | 2007-09-27 09:03:38 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-10-09 12:25:05 +0000 |
| commit | ffb0b41ddab819dfe927b571e62eeff6a7811557 (patch) | |
| tree | 72eab73d4cc9e85c658439ba36f9ab2f0871f55a /lib/Pod/Html.pm | |
| parent | 6a2b710f1bb3d2a9f4cff465908fb9a456cc7c0c (diff) | |
| download | perl-ffb0b41ddab819dfe927b571e62eeff6a7811557.tar.gz | |
[perl #45823] [PATCH] v5.8.8. pod2html: <a name="example"> anchor, but <a href="item_example"> link
From: Axel Kollmorgen (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.6.HEAD-10743-1190934218-322.45823-75-0@perl.org>
p4raw-id: //depot/perl@32079
Diffstat (limited to 'lib/Pod/Html.pm')
| -rw-r--r-- | lib/Pod/Html.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm index 232bd2b51a..cd24d699b0 100644 --- a/lib/Pod/Html.pm +++ b/lib/Pod/Html.pm @@ -1987,7 +1987,7 @@ sub coderef($$){ if( exists $Pages{$page} and $Pages{$page} =~ /([^:.]*)\.[^:]*:/){ $page = $1 . '.html'; } - my $link = "$Htmlroot/$page#item_" . anchorify($fid); + my $link = "$Htmlroot/$page#" . anchorify($fid); # Here, we take advantage of the knowledge that $Htmlfileurl # ne '' implies $Htmlroot eq ''. @@ -1998,7 +1998,7 @@ sub coderef($$){ $url = $link ; } } else { - $url = "#item_" . anchorify($fid); + $url = "#" . anchorify($fid); } confess "url has space: $url" if $url =~ /"[^"]*\s[^"]*"/; |