perlfunc: fix error in open("-|") description

both 'to child' and 'from child' were listed as "|-"

diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod
index 54f5ae2..e619424 100644 (file)
--- a/pod/perlfunc.pod
+++ b/pod/perlfunc.pod
@@ -3564,7 +3564,7 @@ Use C<defined($pid)> or C<//> to determine whether the open was successful.
 
 For example, use either
 
-    $child_pid = open(FROM_KID, "|-")  // die "can't fork: $!";
+    $child_pid = open(FROM_KID, "-|")  // die "can't fork: $!";
 
 or
     $child_pid = open(TO_KID,   "|-")  // die "can't fork: $!";