From 4a14e7dbe69db0517d1d333a644c4abeb0a42cb8 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 --- catalogue/showmarc.pl | 1 + t/00-testcritic.t | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/catalogue/showmarc.pl b/catalogue/showmarc.pl index bd557e966e..2761800fcf 100755 --- a/catalogue/showmarc.pl +++ b/catalogue/showmarc.pl @@ -25,6 +25,7 @@ use strict; #use warnings; FIXME - Bug 2505 +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