[Mimedefang] Archive::Zip problem?
Michal Jankowski
Michal.Jankowski at fuw.edu.pl
Thu Mar 4 14:08:22 EST 2004
"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
More information about the MIMEDefang
mailing list