--- AnyEvent/lib/AnyEvent.pm 2007/10/31 14:17:43 1.29 +++ AnyEvent/lib/AnyEvent.pm 2007/11/02 19:12:02 1.30 @@ -351,7 +351,7 @@ my $signal = uc $arg{signal} or Carp::croak "required option 'signal' is missing"; - $SIG_CB{$signal}{$arg{cb}} = $arg{cb}; + $SIG_CB{$signal}{$arg{cb} += 0} = $arg{cb}; $SIG{$signal} ||= sub { $_->() for values %{ $SIG_CB{$signal} || {} }; }; @@ -376,7 +376,7 @@ sub _child_wait { while (0 < (my $pid = waitpid -1, $WNOHANG)) { - $_->() for values %{ (delete $PID_CB{$pid}) || {} }; + $_->() for values %{ $PID_CB{$pid} || {} }, %{ $PID_CB{0} || {} }; } undef $PID_IDLE;