Searched refs:killfile (Results 1 – 1 of 1) sorted by relevance
69 my $killfile = 'tmp-killchildstarted';70 unlink($killfile);71 die "can't unlink $killfile: $!" if -e $killfile;72 eval q{END {unlink($killfile);}};74 my $pid = system(1, $^X, 'op/kill0_child', $killfile);76 while( ! -e $killfile) {95 die "a child proc wasn't killed and did cleanup on its own" if ! -e $killfile;96 unlink $killfile;100 die "can't unlink" if -e $killfile;102 $pid = system(1, $^X, 'op/kill0_child', $killfile);[all …]