From dbd8602280192e4e4cd9915ad8c345a2d40dfb72 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 9 Apr 2015 16:05:59 +0200 Subject: [PATCH] Bug 13975: Remove compilation warning about encoding pragma deprecation MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Test plan: 0/ Does not apply the patch 1/ Launch the export_borrowers.pl script to export data with unicode characters % perl misc/export_borrowers.pl -w "borrowernumber=42" --field borrowernumber --field surname --field firstname Use of the encoding pragma is deprecated at misc/export_borrowers.pl 7874,JOUBU,صةصةصة 2/ Apply this patch 3/ Repeat 1 % perl misc/export_borrowers.pl -w "borrowernumber=42" --field borrowernumber --field surname --field firstname 7874,JOUBU,صةصةصة Note that the deprecated message is gone and the encoding is correct. Signed-off-by: Frederic Demians I confirm the warning (on Perl version above 5.14). And that the patch fix the warning. Signed-off-by: Kyle M Hall Signed-off-by: Tomas Cohen Arazi --- misc/export_borrowers.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/misc/export_borrowers.pl b/misc/export_borrowers.pl index 7d3ce47eed..3063ed1f59 100755 --- a/misc/export_borrowers.pl +++ b/misc/export_borrowers.pl @@ -26,7 +26,7 @@ use Getopt::Long qw(:config no_ignore_case); use C4::Context; use C4::Members; -use encoding 'utf8'; +binmode STDOUT, ":encoding(UTF-8)"; sub print_usage { ( my $basename = $0 ) =~ s|.*/||; -- 2.39.5