binmode would not work

Is that so? I get the same (cases 3 and 4) correct result, regardless of layers stack being built through open or binmode.

use strict;
use warnings;
use feature 'say';
use autodie;
$, = ' ';

{ 
    open my $f, '>:raw:encoding(UTF-16LE):crlf', 'test';
    say $f 123;
}

{ # 1 "pure binary slurp"
    open my $f, '<:raw', 'test'; 
    undef local $/;
    say PerlIO::get_layers( $f );
    say unpack '(H2)*', <$f>;
}
{ # 2 OP's case
    open my $f, '<:encoding(UTF-16LE)', 'test';
    say PerlIO::get_layers( $f );
    say unpack '(H2)*', <$f>;
}
{ # 3 correct
    open my $f, '<:raw:encoding(UTF-16LE):crlf', 'test';
    say PerlIO::get_layers( $f );
    say unpack '(H2)*', <$f>;
}
{ # 4 correct
    open my $f, '<', 'test';
    binmode $f, ':raw:encoding(UTF-16LE):crlf';
    say PerlIO::get_layers( $f );
    say unpack '(H2)*', <$f>;
}
{ # 5 same as #2
    open my $f, '<', 'test';
    binmode $f, ':encoding(UTF-16LE)';
    say PerlIO::get_layers( $f );
    say unpack '(H2)*', <$f>;
}

__END__

unix crlf
31 00 32 00 33 00 0d 00 0a 00
unix crlf encoding(UTF-16LE) utf8
31 32 33 0d 0a
unix crlf encoding(UTF-16LE) utf8 crlf utf8
31 32 33 0a
unix crlf encoding(UTF-16LE) utf8 crlf utf8
31 32 33 0a
unix crlf encoding(UTF-16LE) utf8
31 32 33 0d 0a
[download]

But can output of PerlIO::get_layers be believed at all? There are a few utf8 (pseudo- -?) layers for which I didn't ask. Also, the bottommost crlf layer is not removed but rather disabled, in both 3 and 4 (and 1, too) cases. And not re-enabled later.

However, I can :pop (rather than "disable") existing layers, and here open and binmode behave differently: the latter doesn't allow to go to the bottom of the stack. Don't know if these factoids are of any value though.

{ # 6
    open my $f, '<:pop:pop:unix:encoding(UTF-16LE):crlf', 'test';
    say PerlIO::get_layers( $f );
    say unpack '(H2)*', <$f>;
}
{ # 7
    open my $f, '<', 'test';
    binmode $f, ':pop:pop:unix:encoding(UTF-16LE):crlf';
    say PerlIO::get_layers( $f );
    say unpack '(H2)*', <$f>;
}

__END__

unix encoding(UTF-16LE) utf8 crlf utf8
31 32 33 0a
unix encoding(UTF-16LE) utf8 crlf utf8
Use of uninitialized value in unpack at crlf.pl line 49.

refcnt_dec: fd 0: 0 <= 0
[download]