#----------------------------- |
use POSIX qw ( :signal_h ); |
$sigset = POSIX::SigSet->new ( SIGINT ); |
# define the signals to block |
$old_sigset = POSIX::SigSet->new; |
# where the old sigmask will be kept |
unless ( defined sigprocmask ( SIG_BLOCK, $sigset , $old_sigset ) ) |
{ |
die "Could not block SIGINT\n" ; |
} |
#----------------------------- |
unless ( defined sigprocmask ( SIG_UNBLOCK, $old_sigset ) ) |
{ |
die "Could not unblock SIGINT\n" ; |
} |
#----------------------------- |
use POSIX qw ( :signal_h ); |
$sigset = POSIX::SigSet->new ( SIGINT, SIGKILL ); |
#----------------------------- |
by: 发表于:2017-09-18 17:50:10 顶(0) | 踩(0) 回复
??
回复评论