Changeset 8758

Timestamp:

04/03/08 16:47:37 (5 years ago)

Author:

kazuho

Message:

reset signal handler on child processes

Files:

• lang/perl/Parallel-Prefork/trunk/lib/Parallel/Prefork.pm (modified) (1 diff)

lang/perl/Parallel-Prefork/trunk/lib/Parallel/Prefork.pm

@@ -45 +45 @@
                 # child process
                 $self->{in_child} = 1;
+                $SIG{$_} = 'DEFAULT' for @{$self->trap_signals};
+                exit 0 if @{$self->signals_received};
                 return;
             }