[Patches] [PATCH] Bug 6679: catalogue/ now passing perl critic tests

[koha-patchbot at kohaaloha.com]

From: Chris Cormack <chrisc at catalyst.net.nz>
Date: Mon, 31 Oct 2011 21:02:13 +1300
Subject: [PATCH] Bug 6679: catalogue/ now passing perl critic tests

Signed-off-by: Paul Poulain <paul.poulain at biblibre.com>
---
 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 a54894b..b18068d 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 19e53fb..c97828b 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';
-- 
1.7.5.4