From ab09e8e6c7ada236d9c25a15a8a05d7dff8895b7 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Wed, 18 Jan 2012 10:11:26 +0100 Subject: [PATCH 1/1] Bug 6751: Remplace encoding mode for perlcritic --- members/readingrec.pl | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/members/readingrec.pl b/members/readingrec.pl index dc0807f..a39130a 100755 --- a/members/readingrec.pl +++ b/members/readingrec.pl @@ -92,7 +92,7 @@ if ($input->param('op') eq 'export_barcodes') { my $borrowercardnumber = GetMember( borrowernumber => $borrowernumber )->{'cardnumber'} ; my $delimiter = ":"; $delimiter = "\n"; - binmode( STDOUT, ":utf8" ); + binmode( STDOUT, ":encoding(UTF-8)"); print $input->header( -type => 'application/octet-stream', -charset => 'utf-8', -- 1.7.7.3