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