diff -ur amavis-perl-11.orig/amavis/amavis.in amavis-perl-11/amavis/amavis.in --- amavis-perl-11.orig/amavis/amavis.in Thu Apr 5 20:22:52 2001 +++ amavis-perl-11/amavis/amavis.in Thu Aug 30 00:11:19 2001 @@ -580,8 +580,13 @@ if ($filetype =~ /tar archive/i) { do_log(4,"Untarring $part"); - my $tar = Archive::Tar->new("$TEMPDIR/parts/$part") || - do_exit($REGERR, __LINE__); + # Work around bug in Archive-Tar + my $tar = eval { Archive::Tar->new("$TEMPDIR/parts/$part") }; + + unless (defined($tar)) { + do_log(4,"Faulty archive $part"); + return 0; + } my @list = $tar->list_files();