From 741f736662476403cbcac3b9bf0756134f53ce1b Mon Sep 17 00:00:00 2001
From: Werner Lemberg <wl@gnu.org>
Date: Wed, 5 Feb 2014 14:51:51 +0100
Subject: [PATCH] Work-around for Perl bug #63402.

---
 src/tools/afblue.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/tools/afblue.pl b/src/tools/afblue.pl
index c98df3413..33bba1ed7 100644
--- a/src/tools/afblue.pl
+++ b/src/tools/afblue.pl
@@ -17,7 +17,7 @@
 use strict;
 use warnings;
 use English '-no_match_vars';
-use open ':std', ':locale';
+use open ':std', ':encoding(UTF-8)';
 
 
 my $prog = $PROGRAM_NAME;