Mailscanner on Solaris 9 *not* protected from "zip of death"

Julian Field mailscanner at
Thu Nov 28 12:11:44 GMT 2002

Can you try this instead:

At 10:33 28/11/2002, you wrote:
>Test code (

use POSIX qw(:signal_h);

my $unblockset = POSIX::SigSet->new(SIGALRM);

sub test {
   eval {
       local $SIG{ALRM} = sub { die "Timed Out" };
       alarm 2;
       while(<STDIN>) {
    sigprocmask(SIG_UNBLOCK, $unblockset)
      or die "Could not unblock alarm: $!\n";

print "going once...\n";
print "going twice...\n";
print "gone.\n"

It looks like Sun botched the compilation of Perl so they didn't get all
the correct signal handler code.
Julian Field                Teaching Systems Manager
jkf at         Dept. of Electronics & Computer Science
Tel. 023 8059 2817          University of Southampton
                             Southampton SO17 1BJ

More information about the MailScanner mailing list