deleted

[urisagit/Perl-Docs.git] / t / foo2.pl

diff --git a/t/foo2.pl b/t/foo2.pl
deleted file mode 100644 (file)
index 00b1740..0000000
--- a/t/foo2.pl
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/local/bin/perl
- sub pipe_to_fork ($) {
-                     my $parent = shift;
-                     pipe my $child, $parent or die;
-                     my $pid = fork();
-                     die "fork() failed: $!" unless defined $pid;
-                     if ($pid) {
-                         close $child;
-                     }
-                     else {
-                         close $parent;
-                         open(STDIN, "<&=" . fileno($child)) or die;
-                     }
-                     $pid;
-                 }
-
-                 if (pipe_to_fork('FOO')) {
-                     # parent
-                     print FOO "pipe_to_fork\n";
-                     close FOO;
-                 }
-                 else {
-                     # child
-                     while (<STDIN>) { print; }
-                     close STDIN;
-                     exit(0);
-                 }