This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
integrate changes#6666..6678,6680..6682,6684..6691,6699..6733,
[perl5.git] / t / op / fork.t
index beb64f9..7c2add9 100755 (executable)
@@ -375,6 +375,7 @@ EXPECT
 pipe_from_fork
 pipe_to_fork
 ########
+$|=1;
 if ($pid = fork()) {
     print "forked first kid\n";
     print "waitpid() returned ok\n" if waitpid($pid,0) == $pid;