[perl #3763] code example error in "perlopentut"

p4raw-id: //depot/perl@21040

diff --git a/pod/perlopentut.pod b/pod/perlopentut.pod
index f2ba7cd..5389c1f 100644 (file)
--- a/pod/perlopentut.pod
+++ b/pod/perlopentut.pod
@@ -625,11 +625,11 @@ just in a different process:
 
     sub head {
         my $lines = shift || 20;
 
     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>) {
         die "cannot fork: $!" unless defined $pid;
         while (<STDIN>) {

-            print;

             last if --$lines < 0;
             last if --$lines < 0;

+            print;

         } 
         exit;
     } 
         } 
         exit;
     }