From philipp@cpan.org

I'm trying to use

File​::Copy(\*TIEDHANDLE, "/foo/bar");

and it's blowing out as​:

stat() on unopened filehandle FD at /usr/lib/perl5/5.10.0/File/Copy.pm line
  102,<F> line 1 (#1)
  (W unopened) You tried to use the stat() function on a filehandle that
  was either never opened or has since been closed.

so I'm thinking that the logic bracketing the stat($from) and stat($to) should test to see if either one is a file handle first (i.e. use !$from_a_handle and !$to_a_handle, respectively).

Same thing happens with IO​::Handle() arguments.

From @iabyn

Note this is still present in blead, and can be reproduced with the
following. Note that the file actually gets copied.

use Tie​::StdHandle;
tie *FH, 'Tie​::StdHandle', '/etc/hosts';
use File​::Copy;
copy(\*FH, "/tmp/hosts");

The RT System itself - Status changed from 'new' to 'open'

From philipp@cpan.org

On 04/08/2010 01​:45 PM, Dave Mitchell via RT wrote​:

Note this is still present in blead, and can be reproduced with the
following. Note that the file actually gets copied.

use Tie​::StdHandle;
tie *FH, 'Tie​::StdHandle', '/etc/hosts';
use File​::Copy;
copy(\*FH, "/tmp/hosts");

Well, in the test suite for Filesys​::SmbClient 3.99 it fails and had to
be commented out.

Probably because the IO​::Handle fileno() method in that case does a croak().

From philipp@cpan.org

On 04/08/2010 01​:45 PM, Dave Mitchell via RT wrote​:

Note this is still present in blead, and can be reproduced with the
following. Note that the file actually gets copied.

use Tie​::StdHandle;
tie *FH, 'Tie​::StdHandle', '/etc/hosts';
use File​::Copy;
copy(\*FH, "/tmp/hosts");

Well, it wasn't working when the tied handle was one of
Filesys​::SmbClient, despite the fact that this object has all of the
required methods... so apparently File​::Copy() has a dependency on other
methods.

From @iabyn

Note this is still present in blead, and can be reproduced with the
following. Note that the file actually gets copied.

use Tie​::StdHandle;
tie *FH, 'Tie​::StdHandle', '/etc/hosts';
use File​::Copy;
copy(*FH, "/tmp/hosts");

Still present in perl-5.30.0.