cvs commit: perlfaq perlfaq8.pod

cvsuser     06/01/12 21:08:23

  Modified:    .        perlfaq8.pod
  Log:
  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]>
  
  Revision  Changes    Path
  1.28      +4 -4      perlfaq/perlfaq8.pod
  
  Index: perlfaq8.pod
  ===================================================================
  RCS file: /cvs/public/perlfaq/perlfaq8.pod,v
  retrieving revision 1.27
  retrieving revision 1.28
  diff -u -r1.27 -r1.28
  --- perlfaq8.pod	31 Dec 2005 00:54:37 -0000	1.27
  +++ perlfaq8.pod	13 Jan 2006 05:08:23 -0000	1.28
  @@ -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);