This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #3763] code example error in "perlopentut"
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 5 Sep 2003 04:36:48 +0000 (04:36 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 5 Sep 2003 04:36:48 +0000 (04:36 +0000)
p4raw-id: //depot/perl@21040

pod/perlopentut.pod

index f2ba7cd..5389c1f 100644 (file)
@@ -625,11 +625,11 @@ just in a different process:
 
     sub head {
         my $lines = shift || 20;
-        return unless $pid = open(STDOUT, "|-");
+        return if $pid = open(STDOUT, "|-");       # return if parent
         die "cannot fork: $!" unless defined $pid;
         while (<STDIN>) {
-            print;
             last if --$lines < 0;
+            print;
         } 
         exit;
     }