[perl #54424] perlipc mistype

From: andrew@sundale.net (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.6.HEAD-11257-1211174406-1790.54424-75-0@perl.org>

p4raw-id: //depot/perl@33977

diff --git a/pod/perlipc.pod b/pod/perlipc.pod
index f0722f7..3e916a0 100644 (file)
--- a/pod/perlipc.pod
+++ b/pod/perlipc.pod
@@ -581,7 +581,7 @@ you opened whatever your kid writes to his STDOUT.
        open (FILE, "> /safe/file")
            || die "can't open /safe/file: $!";
        while (<STDIN>) {
-           print FILE; # child's STDIN is parent's KID
+           print FILE; # child's STDIN is parent's KID_TO_WRITE
        }
        exit;  # don't forget this
     }