我试图决定从为x86_64-linux-thread-multi构建的perl（v5.14.2）中的信号处理程序访问一个公共（读：处理程序代码和程序的其余部分共享）数据结构是否安全，但目标平台是solution 11）。
perlipc有以下示例代码：

use POSIX ":sys_wait_h"; # for nonblocking read
my %children;
$SIG{CHLD} = sub {
    # don't change $! and $? outside handler
    local ($!, $?);
    my $pid = waitpid(-1, WNOHANG);
    return if $pid == -1;
    return unless defined $children{$pid};
    delete $children{$pid};
    cleanup_child($pid, $?);
};
while (1) {
    my $pid = fork();
    die "cannot fork" unless defined $pid;
    if ($pid == 0) {
        # ...
        exit 0;
    } else {
        $children{$pid}=1;
        # ...
        system($command);
        # ...
   }
}

因此，%children是从while-loop和handler访问的。这似乎没有问题，因为：
1.不会有两个进程具有相同的pid
1.访问是由pid键控的（不过，我不确定$childer{pid}=1是否是原子的和可中断的，而不会导致损坏。）
现在，我正在尝试在我的处理程序中做更多的事情：

my %categoryForPid;
my %childrenPerCategory;

$SIG{CHLD} = sub {
    # ... acquire pid like above
    my $category = $categoryForPid{$pid};
    $childrenPerCategory{$category}--;
    delete $categoryForPid{$pid};
}

while (1) {
    # ... same as above
    } else {
        $children{$pid}=1;
        my $category = # ... chose some how
        $childrenPerCategory{$category}++;
        $categoryForPid{$pid} = $category;
        # ...
    }
}

这里的想法是：每个孩子都属于某个类别（N到1）。我想跟踪每个类别有多少孩子存在。这些信息可以从$categoryForPid中导出，但我认为这也可能有问题（例如，当执行计算的子例程在求和时中断时）。
所以我的问题是

• 我需要在这里同步吗？

顺便说一句：

• 在perl5.12中，信号处理程序的嵌套调用是可能的，还是被解释器线性化了？

更新

除了@goldilocks发现的问题和他提出的解决方案之外，我现在在更新数据结构时阻止信号，以确保“原子性”：

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

sub ublk {
    unless (defined sigprocmask(SIG_UNBLOCK, $sigset)) {
        die "Could not unblock SIGCHLD\n";
    }
}

sub blk {
    unless (defined sigprocmask(SIG_BLOCK, $sigset)) {
        die "Could not block SIGCHLD\n";
    }
}

while (1) {
    # ... same as above
    } else {
         blk;
         $children{$pid}=1;
         my $category = # ... chose some how
         $childrenPerCategory{$category}++;
         $categoryForPid{$pid} = $category;
         ublk;
         # ...
    }
}