1use strict; 2use warnings; 3 4use Test::More tests => 6; 5 6use CGI; 7 8foreach my $fh ( \*STDOUT,\*STDIN,\*STDERR ) { 9 binmode( STDOUT,':utf8' ); 10 my %layers = map { $_ => 1 } PerlIO::get_layers( \*STDOUT ); 11 ok( $layers{utf8},'set utf8 on STDOUT' ); 12} 13 14CGI::_set_binmode(); 15 16foreach my $fh ( \*STDOUT,\*STDIN,\*STDERR ) { 17 my %layers = map { $_ => 1 } PerlIO::get_layers( \*STDOUT ); 18 ok( $layers{utf8},'layers were not lost in call to _set_binmode' ); 19} 20