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 13if( !$Config{d_fork} ) { 14 plan skip_all => "This system cannot fork"; 15} 16else { 17 plan tests => 1; 18} 19 20if( fork ) { # parent 21 pass("Only the parent should process the ending, not the child"); 22} 23else { 24 exit; # child 25} 26