4 if( $ENV{PERL_CORE} ) {
13 my $Can_Fork = $Config{d_fork} ||
14 (($^O eq 'MSWin32' || $^O eq 'NetWare') and
15 $Config{useithreads} and
16 $Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/
20 plan skip_all => "This system cannot fork";
27 pass("Only the parent should process the ending, not the child");