[perl #32486] error in documentation for POSIX::pipe

From: chris@ex-parrot.com (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-32486-100537.1.04456486825399@perl.org>

p4raw-id: //depot/perl@23518

diff --git a/ext/POSIX/POSIX.pod b/ext/POSIX/POSIX.pod
index 66f5381..e7e0ad3 100644 (file)
--- a/ext/POSIX/POSIX.pod
+++ b/ext/POSIX/POSIX.pod
@@ -956,8 +956,8 @@ Create an interprocess channel.  This returns file descriptors like those
 returned by C<POSIX::open>.
 
        ($fd0, $fd1) = POSIX::pipe();
-       POSIX::write( $fd0, "hello", 5 );
-       POSIX::read( $fd1, $buf, 5 );
+       POSIX::write( $fd1, "hello", 5 );
+       POSIX::read( $fd0, $buf, 5 );
 
 See also L<perlfunc/pipe>.