Bug 21395: Make perlcritic happy

[koha-equinox.git] / C4 / Templates.pm

diff --git a/C4/Templates.pm b/C4/Templates.pm
index 343a374..bad3275 100644 (file)
--- a/C4/Templates.pm
+++ b/C4/Templates.pm
@@ -118,7 +118,7 @@ sub output {
     $vars = { %$vars, %{ $self->{VARS} } };
 
     my $data;
-    binmode( STDOUT, ":utf8" );
+    binmode( STDOUT, ":encoding(UTF-8)" );
     $template->process( $self->filename, $vars, \$data )
       || die "Template process failed: ", $template->error();
     return $data;