From: Norman Walsh <ndw@nwalsh.com>
Date: Thu, 20 Oct 2005 12:56:27 +0000 (+0000)
Subject: Workaround UTF8 bug in Perl? Bah, humbug.
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=78abdaf5cbd24ca67cd30fc691935d0f35e9bf83;p=docbook-dsssl

Workaround UTF8 bug in Perl? Bah, humbug.
---

diff --git a/docbook/relaxng/tools/trimgrammar.pl b/docbook/relaxng/tools/trimgrammar.pl
index a97e03288..0ecc76c60 100644
--- 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) {