From ee0627f20bee5df234ab284d1fdacebb857de57f Mon Sep 17 00:00:00 2001
From: Chris Cormack <chrisc@catalyst.net.nz>
Date: Mon, 31 Oct 2011 20:57:19 +1300
Subject: [PATCH] Bug 6679: Fixing admin/aqplain :encoding(UTF-8) gives strict
 validation

Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
tested with diacritics, no changes before and after the patch
---
 admin/aqplan.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/admin/aqplan.pl b/admin/aqplan.pl
index ceb99502e6..9c754310c3 100755
--- a/admin/aqplan.pl
+++ b/admin/aqplan.pl
@@ -463,7 +463,7 @@ output_html_with_http_headers $input, $cookie, $template->output;
 sub _print_to_csv {
     my ( $header, $results ) = @_;
 
-    binmode STDOUT, ":utf8";
+    binmode STDOUT, ":encoding(UTF-8)";
 
     my $csv = Text::CSV_XS->new(
         {   sep_char     => $del,
-- 
2.39.5