perl 4.0.00: (no release announcement available)perl-4.0.00

So far, 4.0 is still a beta test version.  For the last production
version, look in pub/perl.3.0/kits@44.

1 files changed, 16 insertions, 0 deletions

diff --git a/t/op/fork.t b/t/op/fork.t
new file mode 100644
index 0000000000..55696fd98f
--- /dev/null
+++ b/t/op/fork.t
@@ -0,0 +1,16 @@
+#!./perl
+
+# $Header: fork.t,v 4.0 91/03/20 01:52:43 lwall Locked $
+
+$| = 1;
+print "1..2\n";
+
+if ($cid = fork) {
+    sleep 2;
+    if ($result = (kill 9, $cid)) {print "ok 2\n";} else {print "not ok 2 $result\n";}
+}
+else {
+    $| = 1;
+    print "ok 1\n";
+    sleep 10;
+}