$pod

From: Fabien TASSIN Date: Sun, 5 Jan 1997 23:47:01 +0000 (+0100) Subject: pod2html.PL patch (for 5.003-19) X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a4165598218d6f4027c60d743c1ec7eb33232258;p=p5sagit%2Fp5-mst-13.2.git pod2html.PL patch (for 5.003-19) I've just found 2 bugs: - incorrect order for tags in the header. - bad links if the filename contains one (or more) "_". Here is the patch : nexus:~perl/5.003-19/src/pod $ diff -c pod2html.PL.orig pod2html.PL p5p-msgid: <199701052347.AAA21297@solar5> --- diff --git a/pod/pod2html.PL b/pod/pod2html.PL index cc21b07..b97c00c 100644 --- a/pod/pod2html.PL +++ b/pod/pod2html.PL @@ -119,8 +119,9 @@ for $count (0,1) { open(HTML,">$html") || die "can't create $html: $ERRNO"; print HTML '',"\n",'',"\n"; print HTML "" unless $NO_NS; - print HTML "$pod\n\n"; + print HTML "$pod"; print HTML "" unless $NO_NS; + print HTML "\n\n"; } for ($i = 0; $i <= $#all; $i++) { # decide what to do with each chunk $all[$i] =~ /^(\w+)\s*(.*)\n?([^\0]*)$/ ; @@ -380,7 +381,7 @@ sub picrefs { } } if (length($key)) { - ($pod2,$num) = split(/_/,$value,2); + ($pod2, $num) = $value =~ /^(.*)_(\S+_\d+)$/; if ($htype eq "NAME") { return "\n\n$bigkey\n" }