Yitzchak Scott-Thoennes wrote:
>BTW, Pod::Html is *not* a dual life module. Please don't wait for the CPAN
>maintainer to apply this; there isn't one.
>
>On Mon, Jul 04, 2005 at 02:07:38AM -0700, Yitzchak Scott-Thoennes wrote:
>
>
>>--- perl/lib/Pod/Html.pm.orig 2005-05-05 08:46:10.000000000 -0700
>>+++ perl/lib/Pod/Html.pm 2005-07-04 00:06:33.823966400 -0700
>>@@ -1883,7 +1883,7 @@
>> my( $url );
>>
>> my $fid = fragment_id( $item );
>>- if( defined( $page ) ){
>>+ if( defined( $page ) && $page ne "" ){
>> # we have been given a $page...
>> $page =~ s{::}{/}g;
>>
>>End of Patch.
>>
Sorry for the delay. I was trying to find a test script to add a test
for this into, but couldn't really see one. lib/Pod/t/basic.pod looked
most hopeful, but is part of the podlators distro (which doesn't cover
HTML!).
So then I tried writing my own test, based on the example of
htmlescp.*. My test POD is attached, together with the old HTML output
(without your patch) and the new (with your patch). Looks to me like
neither output is quite right :-(
Any chance of fixing this up to produce the correct output, or shall I
just commit the above for now as a step in the right direction?
------------------------------------------------
Radan Computational Ltd.
The information contained in this message and any files transmitted with it are
confidential and intended for the addressee(s) only. If you have received this
message in error or there are any problems, please notify the sender
immediately. The unauthorized use, disclosure, copying or alteration of this
message is strictly forbidden. Note that any views or opinions presented in
this email are solely those of the author and do not necessarily represent
those of Radan Computational Ltd. The recipient(s) of this message should
check it and any attached files for viruses: Radan Computational will accept no
liability for any damage caused by any virus transmitted by this email.
=head1 NAME
htmllink.pod - Test HTML links
=head1 LINKS
L</"section1">
L</"section 2">
L</section1>
L</section 2>
L<"section1">
L<"section 2">
L<text|/"section1">
L<text|/"section 2">
L<text|/section1>
L<text|/section 2>
L<text|"section1">
L<text|"section 2">
=over 4
=item section1
This is section one.
=item section 2
This is section two.
=back
