(perl #133778) adjust MARK if we extend the stack in pp_repeat
[perl.git] / t / op / kill0_child
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
8 system(1, $^X, '-e', 'sleep 5; print qq|not ok 9999 - inner child process wasn\'t killed\n|;');
9 system('echo outer child started > "'.$ARGV[0].'"');
10 sleep 5;
11
12 # execution won't reach here if the test is successful
13 print "not ok 9998 - outer child process wasn\'t killed\n";
14 unlink($ARGV[0]);