bug 4472: in a hackish fashion, quiet warnings about DOCTYPE in the XSLT

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>

diff --git a/misc/translator/TmplTokenizer.pm b/misc/translator/TmplTokenizer.pm
index 838a59f..1413f77 100644 (file)
--- a/misc/translator/TmplTokenizer.pm
+++ b/misc/translator/TmplTokenizer.pm
@@ -473,7 +473,8 @@ sub _next_token_internal {
                    ($kind, $it) = (TmplTokenType::TAG, "$head>");
                    $this->_set_readahead( $post );
                    $ok_p = 1;
-                   warn_normal "SGML \"closed start tag\" notation: $head<\n", $this->line_number if $tail eq '';
+                   warn_normal "SGML \"closed start tag\" notation: $head<\n", $this->line_number if $tail eq '' 
+                and $head ne '<!DOCTYPE stylesheet ['; # another bit of temporary ugliness for bug 4472
                }
            } elsif ($this->_peek_readahead =~ /^<!--(?:(?!-->)$re_directive*.)*-->/os) {
                ($kind, $it) = (TmplTokenType::COMMENT, $&);