Commit | Line | Data |
---|---|---|
8d063cd8 | 1 | #!./perl |
2 | ||
fe14fcc3 | 3 | # $Header: fork.t,v 4.0 91/03/20 01:52:43 lwall Locked $ |
8d063cd8 | 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 | } |