[Mimedefang] Archive::Zip problem?

[Michal Jankowski]

"Cormack, Ken" <kcormack at acs.roadway.com> writes:

> We saw this log entry in today's logs (we havent looked back yet, to see how
> many times this has occurred.)
>
> Mar  4 09:47:19 mail01 mimedefang-multiplexor: Slave 11 stderr: called at
> /etc/mail/mimedefang-filter line 527
> ^Imain::filter('MIME::Entity=HASH(0x97646b8)','Document.zip','.zip','applica
> tion/octet-stream') called at /usr/local/bin/mimedefang.pl line 513

>         use Archive::Zip qw(:ERROR_CODES);
>         my $path = $entity->bodyhandle->path;
>         my $zip = Archive::Zip->new();
> 527     if ($zip->read($path) == AZ_OK) {

You are seeing a (garbled for whatever reason) default error
message/trace from Archive::Zip, printed whenever there is an error in
processing .zip file.

Add

Archive::Zip::setErrorHandler(sub {});

before your call to $zip->read

  MJ