-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
John Peacock writes:
> because %SIG is the only Perl object that has sig magic, which is where the
> Perl_magic_setsig() call comes in. That code _did_ change between 0.28 and
> 0.29:
>
> - $SIG{CHLD} = $SIG{HUP} = $SIG{PIPE} = $SIG{INT} - $SIG{TERM} =
> $SIG{QUIT} = 'DEFAULT';
> -
> + $SIG{$_} = 'DEFAULT' for keys %SIG;
> + $SIG{ALRM} = sub {
> + print $client "421 Connection Timed Out\n";
> + ::log(LOGINFO, "Connection Timed Out");
> + exit; };
> +
warning -- this will also reset $SIG{__WARN__} and $SIG{__DIE__}.
- --j.
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.5 (GNU/Linux)
Comment: Exmh CVS
iD8DBQFCsPnrMJF5cimLx9ARAoCJAJwLOXYEAILR7GIQHGGk+7LWpm/1OQCghS8M
vNVoekDienVuPoqcqTX98cw=
=8fYh
-----END PGP SIGNATURE-----
