1#!/usr/bin/perl -w
2
3BEGIN {
4    if( $ENV{PERL_CORE} ) {
5        chdir 't';
6        @INC = '../lib';
7    }
8}
9
10use Test::More;
11use Config;
12
13my $Can_Fork = $Config{d_fork} ||
14               (($^O eq 'MSWin32' || $^O eq 'NetWare') and
15                $Config{useithreads} and
16                $Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/
17               );
18
19if( !$Can_Fork ) {
20    plan skip_all => "This system cannot fork";
21}
22else {
23    plan tests => 1;
24}
25
26if( fork ) { # parent
27    pass("Only the parent should process the ending, not the child");
28}
29else {
30    exit;   # child
31}
32
33