From a8274cdfdea6350a292361da0370db9f67d02dcc Mon Sep 17 00:00:00 2001 From: Chris Cormack Date: Mon, 31 Oct 2011 21:02:13 +1300 Subject: [PATCH] Bug 6679: catalogue/ now passing perl critic tests Signed-off-by: Paul Poulain Signed-off-by: Chris Nighswonger --- catalogue/showmarc.pl | 3 +-- t/00-testcritic.t | 4 ++-- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/catalogue/showmarc.pl b/catalogue/showmarc.pl index a54894b3e2..b18068ddce 100755 --- a/catalogue/showmarc.pl +++ b/catalogue/showmarc.pl @@ -23,8 +23,7 @@ use strict; #use warnings; FIXME - Bug 2505 -use open OUT=>':utf8', ':std'; - +use open OUT=>":encoding(UTF-8)", ':std'; # standard or CPAN modules used use CGI qw(:standard); use DBI; diff --git a/t/00-testcritic.t b/t/00-testcritic.t index 19e53fb2d7..c97828b24b 100755 --- a/t/00-testcritic.t +++ b/t/00-testcritic.t @@ -16,8 +16,8 @@ my @all_koha_dirs = qw( acqui admin authorities basket C4 catalogue cataloguing labels members misc offline_circ opac patroncards reports reserve reviews rotating_collections serials sms suggestion t tags test tools virtualshelves); -my @dirs = qw( acqui admin authorities basket circ debian errors offline_circ reserve reviews rotating_collections -serials sms virtualshelves ); +my @dirs = qw( acqui admin authorities basket catalogue circ debian errors offline_circ reserve + reviews rotating_collections serials sms virtualshelves ); if ( not $ENV{TEST_QA} ) { my $msg = 'Author test. Set $ENV{TEST_QA} to a true value to run'; -- 2.39.5