Subject: | Archive::Zip::_newFileHandle doesn't work with tied filehandles |
In Archive::Zip version 116, around line 347 it says:
elsif ( UNIVERSAL::isa( $fd, 'IO::Handle' )
or UNIVERSAL::isa( $fd, 'GLOB' ) )
{
$handle = IO::File->new();
$status = $handle->fdopen( $fd, @_ );
}
If $fd is a tied filehandle that isn't backed by a file descriptor, this
fails, since there's no fd for fdopen to work with.
Changing this function to just always use $handle = $fd seemed to work
fine and fix the problem. Is there a reason it tries to dup the filehandle?
Thanks!