From 6200d4ae21a6e780fe221d0f873395f5d60c063c Mon Sep 17 00:00:00 2001 From: Maxime Pelletier Date: Tue, 20 Sep 2011 17:40:36 -0400 Subject: [PATCH] Bug 6679 : fix 3 perl::critic warnings Signed-off-by: Chris Cormack --- circ/overdue.pl | 2 +- circ/ypattrodue-attr-search-authvalue.pl | 2 +- circ/ysearch.pl | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/circ/overdue.pl b/circ/overdue.pl index 18851a6c01..2bdafe1a0b 100755 --- a/circ/overdue.pl +++ b/circ/overdue.pl @@ -351,7 +351,7 @@ if ($noreport) { } if ($op eq 'csv') { - binmode(STDOUT, ":utf8"); + binmode(STDOUT, ":encoding(UTF-8)"); my $csv = build_csv(\@overduedata); print $input->header(-type => 'application/vnd.sun.xml.calc', -encoding => 'utf-8', diff --git a/circ/ypattrodue-attr-search-authvalue.pl b/circ/ypattrodue-attr-search-authvalue.pl index 5ff1cd93b2..f8d77c5734 100755 --- a/circ/ypattrodue-attr-search-authvalue.pl +++ b/circ/ypattrodue-attr-search-authvalue.pl @@ -32,7 +32,7 @@ $attrcode =~ s|^/||; my ( $auth_status, $sessionID ) = check_cookie_auth( $input->cookie('CGISESSID'), { circulate => '*' } ); exit 0 if $auth_status ne "ok"; -binmode STDOUT, ":utf8"; +binmode STDOUT, ":encoding(UTF-8)"; print $input->header( -type => 'text/plain', -charset => 'UTF-8' ); print STDERR ">> CALLING $0 (attrcode=$attrcode, query=$query)\n" if $debug; diff --git a/circ/ysearch.pl b/circ/ysearch.pl index f8fc52a885..549a5471d0 100755 --- a/circ/ysearch.pl +++ b/circ/ysearch.pl @@ -33,7 +33,7 @@ use C4::Auth qw/check_cookie_auth/; my $input = new CGI; my $query = $input->param('query'); -binmode STDOUT, ":utf8"; +binmode STDOUT, ":encoding(UTF-8)"; print $input->header(-type => 'text/plain', -charset => 'UTF-8'); my ($auth_status, $sessionID) = check_cookie_auth($input->cookie('CGISESSID'), { circulate => '*' }); -- 2.39.5