t/op/fork.t

   1 #!./perl
   2
   3 # $RCSfile: fork.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:53 $
   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 }