binmode is unimplemented - cannot use File::Copy with Test::MockFile

[atoomic]

noticed this while using File::Copy::copy

#!perl

use strict;
use warnings;

use Test::MockFile 0.032;

use File::Copy;

use constant FILE_1 => q[/one];
use constant FILE_2 => q[/two];

my $mock_one = Test::MockFile->file( FILE_1, q[some content] );
my $mock_two = Test::MockFile->file( FILE_2 );

File::Copy::copy( FILE_1, FILE_2 );

error output

Unimplemented at /usr/local/cpanel/3rdparty/perl/532/lib/perl5/cpanel_lib/Test/MockFile/FileHandle.pm line 361.
	Test::MockFile::FileHandle::BINMODE(Test::MockFile::FileHandle=HASH(0x1b74610)) called at /usr/local/cpanel/3rdparty/perl/532/lib/perl5/532/File/Copy.pm line 151
	File::Copy::copy("/one", "/two") called at t/elevate-marker.t line 16

[atoomic]

extract from File::Copy around this line, notice the binmode call

     my $from_h;
     if ($from_a_handle) {
        $from_h = $from;
     } else {
        open $from_h, "<", $from or goto fail_open1;
        binmode $from_h or die "($!,$^E)";
        $closefrom = 1;
     }

[toddr]

FTR the code is always binmode. technically it's whatever the heck the existing SV is. this can also mess up seek...