From ab0b0efb0a304538829afc1f749b7a92547c8530 Mon Sep 17 00:00:00 2001
From: Norman Walsh <ndw@nwalsh.com>
Date: Wed, 26 May 2004 17:34:45 +0000
Subject: [PATCH] Explicitly use utf-8

---
 docbook/relaxng/tools/cleanup.pl     | 2 ++
 docbook/relaxng/tools/trimgrammar.pl | 1 +
 2 files changed, 3 insertions(+)

diff --git a/docbook/relaxng/tools/cleanup.pl b/docbook/relaxng/tools/cleanup.pl
index 70b5a31bc..79cb8ccba 100644
--- a/docbook/relaxng/tools/cleanup.pl
+++ b/docbook/relaxng/tools/cleanup.pl
@@ -1,5 +1,7 @@
 #!/usr/bin/perl -- # -*- Perl -*-
 
+use open ':utf8';
+
 # Simple script to cleanup the output of the stylesheets. It fiddles with
 # spuriouis namespace declarations, mostly. And adds newlines between the
 # definitions.
diff --git a/docbook/relaxng/tools/trimgrammar.pl b/docbook/relaxng/tools/trimgrammar.pl
index 7b227a3f4..946f8fdea 100644
--- a/docbook/relaxng/tools/trimgrammar.pl
+++ b/docbook/relaxng/tools/trimgrammar.pl
@@ -4,6 +4,7 @@ use strict;
 use XML::DOM;
 use Getopt::Std;
 use vars qw($opt_o $opt_v $opt_r);
+use open ':utf8';
 
 my $usage = "Usage: $0 [-v] [-r] [-o file] file\n";
 
-- 
2.40.0