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

Message-ID: <20041119192856.GA4769@windhund.schwern.org>

p4raw-id: //depot/perl@23527

diff --git a/ext/POSIX/POSIX.pod b/ext/POSIX/POSIX.pod
index e7e0ad3..d7fa8f3 100644 (file)
--- a/ext/POSIX/POSIX.pod
+++ b/ext/POSIX/POSIX.pod
@@ -955,9 +955,9 @@ variable instead, see L<perlfunc/warn> and L<perlvar/$ERRNO>.
 Create an interprocess channel.  This returns file descriptors like those
 returned by C<POSIX::open>.
 
-       ($fd0, $fd1) = POSIX::pipe();
-       POSIX::write( $fd1, "hello", 5 );
-       POSIX::read( $fd0, $buf, 5 );
+       my ($read, $write) = POSIX::pipe();
+       POSIX::write( $write, "hello", 5 );
+       POSIX::read( $read, $buf, 5 );
 
 See also L<perlfunc/pipe>.