Jonathan Warden wrote: > As I understand it, the -CSD commandline option should add UTF8 to the > PerlIO layers for all file streams. But it seems only to be applying it to > STDIN and STDOUT, and not other streams. > > Anyone know what's going on? > > my $file = new IO::File($filename) or die "Error opening delimited file > $filename"; > my @layers = PerlIO::get_layers($file); > my @layers2 = PerlIO::get_layers(\*STDOUT); > print "Layers: ".Dumper([EMAIL PROTECTED],[EMAIL PROTECTED]);
It seems that IO::File somehow bypasses the effects of -C. As a workaround you can use the plain boring open().