Bug #11801 for Archive-Zip: Fails to unpack Sober.l ZIP file. WARNING!!! ATTACHMENT CONTAINS A VIRUS!!!

I have tested the sample zip file with all the examples that are shipped with Archive::Zip, and they all handle the file properly. That is, I have run all of these examples on the file at a command line: zipinfo.pl extract.pl unzipAll.pl zipcheck.pl ziplist.pl ziptest.pl I suspect that this is a problem in Amavis. I have copied Steve Peters, the new co-maintainer of A::Z; he has generously offered to help. Please direct follow-ups to both of us. Thanks!

I played around with Amavis and dupilicated most of its do_unzip() method in the test program below. I was able to extract the file. Compaing the `od` output of the member extracted with unzip(1) and test program below showed no differences. It looks like the problem is in a section of Amavis unrelated to the Archive::Zip code. #!/usr/bin/perl -w use strict; use Archive::Zip qw ( :CONSTANTS :ERROR_CODES ); my $zip = new Archive::Zip; Archive::Zip::setErrorHandler(sub{return 5}); my $ziperr = $zip->read("MailTexte.zip"); Archive::Zip::setErrorHandler(sub{die @_}); print "read() failed\n" if ($ziperr != AZ_OK); my $compmeth = ''; foreach ($zip->members()) { $compmeth = $_->compressionMethod; if ($compmeth == COMPRESSION_DEFLATED || $compmeth == COMPRESSION_STORED) { my $newpart = $_->fileName(); $zip->extractMember($_,$newpart) unless ($_->isDirectory); } else { # FIXME note: per member print $_->fileName(), ": unsupported compression method: $compmeth\n"; } }