如何验证sigprocmask是否正常工作

Question

我正在使用sigprocmask阻止信号并使我的进程被终止。  它有效但是有一种方法来验证说使用/proc/<pid>/status  如果我删除下面的sigprocmask语句代码不起作用，但我认为/proc/<pid>/status与SigIgn，SigCgt，SigPnd，Sig *

的重复没有任何区别

my $sigset_old = POSIX::SigSet->new;
my $sigset = POSIX::SigSet->new;
$sigset->emptyset();
$sigset->addset(&POSIX::SIGPOLL);
POSIX::sigprocmask(SIG_BLOCK,$sigset,$old_sigset);

while(1)
{

  POSIX::RT::Signal::sigwait($sigset);
  POSIX::sigprocmask(SIG_UNBLOCK,$old_sigset)
 <some code>
 ...
 ...
}