2 # $Id: /mirror/googlecode/test-more/t/fork.t 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $
5 if( $ENV{PERL_CORE} ) {
14 my $Can_Fork = $Config{d_fork} ||
15 (($^O eq 'MSWin32' || $^O eq 'NetWare') and
16 $Config{useithreads} and
17 $Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/
21 plan skip_all => "This system cannot fork";
28 pass("Only the parent should process the ending, not the child");