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 }