From: short <>
Date: Sun, 9 Oct 2005 09:55:13 +0000 (+0000)
Subject: Produce valid XHTML output (requires Pod::Html patch now).
X-Git-Url: http://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=commitdiff_plain;h=fdd7f599120fdca2c7d2ca99b77ec4e01c11a806

Produce valid XHTML output (requires Pod::Html patch now).
Extended "html-test.pl" test suite cases.
---

diff --git a/project/Pod2Html.pm b/project/Pod2Html.pm
index 3c76248..2c785f4 100755
--- a/project/Pod2Html.pm
+++ b/project/Pod2Html.pm
@@ -26,8 +26,10 @@ use warnings;
 use My::Web;
 
 
-our $HTML_TEST="download";	# FIXME: See below!
-our $HTML_TEST_QUERY_STRING="cvs=captive/src/libcaptive/ke/captivesym.pl";
+our $HTML_TEST_QUERY_STRING=[
+	"cvs=captive/src/libcaptive/ke/captivesym.pl",
+	"cvs=macros/AutoGen.pm",
+	];
 
 sub handler
 {
@@ -35,12 +37,11 @@ my $W=My::Web->init(
 		"args_check"=>{
 				"cvs"=>'^[\w\d][\w\d/.]*$',
 				},
-		# FIXME:
-		# Do not: # Do not: "content_type"=>"text/html",
-		#         # or whatever as pod2html(1) already produces XHTML.
-		#         "header_only"=>"xml",
-		# as currently pod2html(1) produces invalid XHTML for: .../captivesym.pl
-		"content_type"=>"text/html",
+		# Requires: Pod::Html patch from: Perl Bug # 37250
+		# From: <rt-3.0.11-37250-122352.19.7520280058314@perl.org>
+		# Do not: "content_type"=>"text/html",
+		# or whatever as pod2html(1) already produces XHTML.
+		"header_only"=>"xml",
 		"header_only"=>1,
 		"http_safe"=>0,	# lynx(1) downloads.
 		);