Extended XML header also for WML pages.

diff --git a/Web.pm b/Web.pm
index ad685e6..d2878f6 100644 (file)
--- 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"}++;