Re: Can I `see' what encoding my stream is?

On Tue, 9 Feb 2010 10:21:42 +0100, "H.Merijn Brand"
<h.m.brand@xs4all.nl> wrote:

> On Mon, 08 Feb 2010 23:40:32 +0100, Slaven Rezic <slaven@rezic.de>
> wrote:
>
> > "H.Merijn Brand" <h.m.brand@xs4all.nl> writes:
> >
> > >
> > > To prevent double encoding, is it possible to `see' (from XS) that the
> > > stream is opened with something like
> > >
> > >  open my $dst, ">:utf8", "file";
> > > or
> > > open my $dst, ">:encoding(utf8)", "file";
> > > or
> > >  open my $dst, ">", "file";
> > >  binmode $dst, ":encoding(utf8)";
> > >
> > > ?
> >
> > Check the output of PerlIO::get_layers($dst).
>
> Right, so is this a bug:
> --8<---
> use strict;
> use warnings;
>
> use Data::Peek;
>
> my $out = "";
> open my $fh, ">:utf8", \$out;
>
> DDumper [ PerlIO::get_layers ($fh, details => 1) ];
> -->8---

FWIW: This looks more sane:

open my $fh, ">:encoding(utf8)", \$out;

=>

$VAR1 = [
    'scalar',
    undef,
    6296064,
    'encoding',
    'utf8',
    4231680
];