http://qs321.pair.com?node_id=576698

ant has asked for the wisdom of the Perl Monks concerning the following question:

Hi,

Once again I come looking for answers, so thanks in advance to replies.

I have file named UPatchCAAGAIAE_B.tar.Z, which I'm tring to use Archive::Zip on. I know that the code is correct as it unzips other files fine.
my $extract_file = $start_path . $env . "\\mrf" . $mrf_num . "\\$item" +; my $zip = Archive::Zip->new(); if($zip->read($extract_file) != AZ_OK) { die "Unable to decompress zip file '$extract_file'"; }
However when I try to unzip this, it falls over, see error message below.

Any suggestions??

Thanks

\UPatchCAAGAIAE_B.tar.Z format error: can't find EOCD signature Archive::Zip::Archive::_findEndOfCentralDirectory('Archive::Zi +p::Archive=HASH(0x1b6bd68)', 'IO::File=GLOB(0x1b6be64)') Archive::Zip::Archive::readFromFileHandle('Archive::Zip::Archi +ve=HASH(0x1b6bd68)', 'IO::File=GLOB(0x1b6be64)', 'R:\Rele Archive::Zip::Archive::read('Archive::Zip::Archive=HASH(0x1b6b +d68)', 'R:\Relfsdfdment\pdsfsdhes\OdsfW\mrf15009\UPatc