Re: Can't clone STD handle with :via layer

[frozenwithjoy]

Hi there. I have two suggestions:

(1) Why are you trying to open a filehandle to STDOUT? Why not just print?

For example, this:

#!/usr/bin/env perl
use strict;
use warnings;
use PerlIO::via::QuotedPrint;

binmode STDOUT, ':via(QuotedPrint)';
print " ";

Prints this:

=20=

(2) If you actually need to use STDOUT as a filehandle, an alternative that gives the same output as above is this:

binmode STDOUT, ':via(QuotedPrint)';
my $fh = \*STDOUT;
print $fh " ";

[zdm]

As i correctly understand '>&' - is standard technique to clone handle.

I use Capture::Tiny, which clone all STD handles on each call. Probably other CPAN code may use handle cloning too. So i wish to understand, why cloning with :via layer not working.

Maybe something missing in PerlIO::via::QuotedPrint - which prevents cloning normally?

[tobyink]

It's nothing specific to PerlIO::via::QuotedPrint; it seems to happen with all PerlIO::via::* modules, but not with built-in layers like :unix, :utf8, or :encoding(iso-8859-1).

Update: indeed, the error message is generated within PerlIO::via. Here's the relevant code.

[zdm]

Maybe it makes a sense to create issue in perl rt?