From c7c9eaea7e0999f214679286f1fa103dc70681c1 Mon Sep 17 00:00:00 2001
From: short <>
Date: Sun, 25 Sep 2005 02:28:44 +0000
Subject: [PATCH] Extended XML header also for WML pages.

---
 Web.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Web.pm b/Web.pm
index ad685e6..d2878f6 100644
--- a/Web.pm
+++ b/Web.pm
@@ -1144,7 +1144,9 @@ my($class)=@_;
 	# FIXME: It is not clean to still append them without overwriting.
 	return if $W->{"heading_done"};
 	Wprint '<?xml version="1.0" encoding="'.$W->{"charset"}.'"?>'."\n"
-			if (!$W->{"header_only"} || $W->{"header_only"} eq "xml") && $W->{"content_type"}=~m{^application/\w+[+]xml$};
+			if (!$W->{"header_only"} || $W->{"header_only"} eq "xml") && (0
+					|| $W->{"content_type"}=~m{^application/\w+[+]xml$}
+					|| $W->{"content_type"} eq "text/vnd.wap.wml");
 	return if $W->{"header_only"};
 	# Split 'heading_done' for the proper handling of: /project/Rel.pm
 	$W->{"heading_done"}++;
-- 
1.8.3.1