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

[Julian Field]

Can you try this instead:

At 10:33 28/11/2002, you wrote:
>Test code (test.pl):

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";
&test;
print "going twice...\n";
&test;
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 ecs.soton.ac.uk         Dept. of Electronics & Computer Science
Tel. 023 8059 2817          University of Southampton
                             Southampton SO17 1BJ