diff options
| author | erik@cs.uni-jena.de <erik@cs.uni-jena.de> | 2006-01-11 06:56:28 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-01-12 13:47:59 +0000 |
| commit | 764289d88134dd8424d60ca15744b687b335cc99 (patch) | |
| tree | 90b866a22652b5cdc4056d8edc03cdef64a05b50 /pod/perlfaq8.pod | |
| parent | fcd1fd077902cb9c74aa07dca8a5c26406bc995d (diff) | |
| download | perl-764289d88134dd8424d60ca15744b687b335cc99.tar.gz | |
[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
Diffstat (limited to 'pod/perlfaq8.pod')
| -rw-r--r-- | pod/perlfaq8.pod | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/pod/perlfaq8.pod b/pod/perlfaq8.pod index 55c3cbf899..cc65a1fe8f 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); |