From 1eb83ea05ee16ff24e004a5f6eb1943faa313a93 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 5 Sep 2003 04:36:48 +0000
Subject: [PATCH] [perl #3763] code example error in "perlopentut"

p4raw-id: //depot/perl@21040
---
 pod/perlopentut.pod | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pod/perlopentut.pod b/pod/perlopentut.pod
index f2ba7cd..5389c1f 100644
--- a/pod/perlopentut.pod
+++ b/pod/perlopentut.pod
@@ -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;
     } 
-- 
2.7.4