a "replacement" for awk and sed
[perl.git] / t / op.fork
1 #!./perl
2
3 # $Header: op.fork,v 1.0 87/12/18 13:13:37 root Exp $
4
5 $| = 1;
6 print "1..2\n";
7
8 if ($cid = fork) {
9     sleep 2;
10     if ($result = (kill 9, $cid)) {print "ok 2\n";} else {print "not ok 2 $result\n";}
11 }
12 else {
13     $| = 1;
14     print "ok 1\n";
15     sleep 10;
16 }