Workaround UTF8 bug in Perl? Bah, humbug.

diff --git a/docbook/relaxng/tools/trimgrammar.pl b/docbook/relaxng/tools/trimgrammar.pl
index a97e03288ecea27a03e9ad94e41557ad8554b874..0ecc76c60e653108b2c833fcc5fa2e01aef21f60 100644 (file)
--- a/docbook/relaxng/tools/trimgrammar.pl
+++ b/docbook/relaxng/tools/trimgrammar.pl
@@ -167,7 +167,9 @@ sub printXML {
            print "/>";
        }
     } elsif ($node->getNodeType() == XML::DOM::TEXT_NODE) {
-       print Encode::decode_utf8($node->getData());
+       #print Encode::decode_utf8($node->getData());
+       # why did decoding_utf8 raise errors?
+       print $node->getData();
     } elsif ($node->getNodeType() == XML::DOM::COMMENT_NODE) {
        print "<!--", Encode::decode_utf8($node->getData()), "-->";
     } elsif ($node->getNodeType() == XML::DOM::PROCESSING_INSTRUCTION_NODE) {