From 78abdaf5cbd24ca67cd30fc691935d0f35e9bf83 Mon Sep 17 00:00:00 2001
From: Norman Walsh <ndw@nwalsh.com>
Date: Thu, 20 Oct 2005 12:56:27 +0000
Subject: [PATCH] Workaround UTF8 bug in Perl? Bah, humbug.

---
 docbook/relaxng/tools/trimgrammar.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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) {
-- 
2.50.1