1# kill0_child: an auxiliary script called from t/op/kill0.t 2# 3# $ARGV[0] is the filename that is used to notify the parent .t perl 4# process that all PIDs are started in the process tree. 5# The numbers 9999s and 9998 are intended to be eye catching; they will 6# only appear if we're not killed in time. 7 8system(1, $^X, '-e', 'sleep 5; print qq|not ok 9999 - inner child process wasn\'t killed\n|;'); 9system('echo outer child started > "'.$ARGV[0].'"'); 10sleep 5; 11 12# execution won't reach here if the test is successful 13print "not ok 9998 - outer child process wasn\'t killed\n"; 14unlink($ARGV[0]); 15