#
# interrupt support
#

use POSIX;

$sigset =  POSIX::SigSet->new();

$actINT = POSIX::SigAction->new( 'SigInterrupt', $sigset, &POSIX::SA_NODEFER );
$actHUP = POSIX::SigAction->new( 'SigHangup',    $sigset, &POSIX::SA_NODEFER );

POSIX::sigaction( &POSIX::SIGINT, $actINT );
POSIX::sigaction( &POSIX::SIGHUP, $actHUP );

$SIGINT = 0;
$SIGHUP = 0;