¿Cómo elimino la advertencia "carácter ancho en la impresión" de TT?

Question

He este aviso cada vez que ejecute mi script CGI (salida está dictada por la plantilla :: Toolkit):

Wide character in print at /usr/local/lib/perl5/site_perl/5.8.9/mach/Template.pm line 163.

¿Cuál es la manera correcta para eliminarlo?

que crear el objeto tt usar este config:

my %config = (
     ENCODING  => 'utf8', 
     INCLUDE_PATH => $ENV{TEMPLATES_DIR}, 
     EVAL_PERL => 1, 
} 
my $tt = Template->new(\%config); 

Answer 1

poner esto antes de la llamada a $tt->process() tener la salida codificada de forma automática:

binmode STDOUT, ':utf8'; 

Editar: Como daxim mencionado, es posible utilizar las instalaciones de codificación de TT:

$tt->process($infile, $vars, '-', { binmode => ':utf8' }) 

Esto se basa en la convención ampliamente utilizada de que el nombre de archivo '-' le da STDIN cuando se abre para leer, y STDOUT cuando se abre para escribir.

Editar 2: Por cierto, la última manera no parece funcionar para mí en mod_perl (2.0.5).

Answer 2

$tt->process($infile, $vars, $outfile, { binmode => ':encoding(UTF-8)' }) 

Esto está documentado en http://search.cpan.org/perldoc?Template#process%28%24template%2C_%5C%25vars%2C_%24output%2C_%25options%29.