From: erik@cs.uni-jena.de <erik@cs.uni-jena.de>
Date: Wed, 11 Jan 2006 14:56:28 +0000 (-0800)
Subject: [perl #38205] misleading typo in perlfaq8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=764289d88134dd8424d60ca15744b687b335cc99;p=p5sagit%2Fp5-mst-13.2.git

[perl #38205] misleading typo in perlfaq8
From: erik@cs.uni-jena.de (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-38205-127890.10.340635502974@perl.org>

p4raw-id: //depot/perl@26802
---

diff --git a/pod/perlfaq8.pod b/pod/perlfaq8.pod
index 55c3cbf..cc65a1f 100644
--- a/pod/perlfaq8.pod
+++ b/pod/perlfaq8.pod
@@ -666,8 +666,8 @@ files:
     use IPC::Open3;
     use Symbol qw(gensym);
     use IO::File;
-    local *CATCHOUT = IO::File->new_tempfile;
-    local *CATCHERR = IO::File->new_tempfile;
+    local *CATCHOUT = IO::File->new_tmpfile;
+    local *CATCHERR = IO::File->new_tmpfile;
     my $pid = open3(gensym, ">&CATCHOUT", ">&CATCHERR", "cmd");
     waitpid($pid, 0);
     seek $_, 0, 0 for \*CATCHOUT, \*CATCHERR;
@@ -680,7 +680,7 @@ should work just as well, without deadlocking:
     use IPC::Open3;
     use Symbol qw(gensym);
     use IO::File;
-    local *CATCHERR = IO::File->new_tempfile;
+    local *CATCHERR = IO::File->new_tmpfile;
     my $pid = open3(gensym, \*CATCHOUT, ">&CATCHERR", "cmd");
     while( <CATCHOUT> ) {}
     waitpid($pid, 0);