diff options
| author | Fabien TASSIN <tassin@eerie.fr> | 1997-01-06 00:47:01 +0100 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-01-08 11:52:00 +1200 |
| commit | a4165598218d6f4027c60d743c1ec7eb33232258 (patch) | |
| tree | c94d8302266624a4faa90fcdcbb15fbd84289dfb | |
| parent | 42568e286aff62b9aeb2f25e792e30cec916a66b (diff) | |
| download | perl-a4165598218d6f4027c60d743c1ec7eb33232258.tar.gz | |
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>
| -rw-r--r-- | pod/pod2html.PL | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/pod/pod2html.PL b/pod/pod2html.PL index cc21b0703f..b97c00ccb4 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 '<!-- $Id$ -->',"\n",'<HTML><HEAD>',"\n"; print HTML "<CENTER>" unless $NO_NS; - print HTML "<TITLE>$pod</TITLE>\n</HEAD>\n<BODY>"; + print HTML "<TITLE>$pod</TITLE>"; print HTML "</CENTER>" unless $NO_NS; + print HTML "\n</HEAD>\n<BODY>"; } 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<A NAME=\"".$value."\">\n$bigkey</A>\n" } |