Change 26802: [perl #38205] misleading typo in perlfaq8

Change 26802 by rgs@stencil on 2006/01/12 13:47:59

	Subject: [perl #38205] misleading typo in perlfaq8
	From: [email protected] (via RT) <[email protected]>
	Date: Wed, 11 Jan 2006 14:56:28 -0800
	Message-ID: <[email protected]>

Affected files ...

... //depot/perl/pod/perlfaq8.pod#48 edit

Differences ...

==== //depot/perl/pod/perlfaq8.pod#48 (text) ====
Index: perl/pod/perlfaq8.pod
--- perl/pod/perlfaq8.pod#47~26601~	2006-01-03 06:10:04.000000000 -0800
+++ perl/pod/perlfaq8.pod	2006-01-12 05:47:59.000000000 -0800
@@ -666,8 +666,8 @@
     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 @@
     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);
End of Patch.