add Module::Build 0.27_08

[p5sagit/p5-mst-13.2.git] / pod / perlfaq8.pod

diff --git a/pod/perlfaq8.pod b/pod/perlfaq8.pod
index f0df9d3..cc65a1f 100644 (file)
--- a/pod/perlfaq8.pod
+++ b/pod/perlfaq8.pod
@@ -1,6 +1,6 @@
 =head1 NAME
 
-perlfaq8 - System Interaction ($Revision: 1.24 $, $Date: 2005/04/22 19:04:48 $)
+perlfaq8 - System Interaction ($Revision: 1.27 $, $Date: 2005/12/31 00:54:37 $)
 
 =head1 DESCRIPTION
 
@@ -35,25 +35,26 @@ How you access/control keyboards, screens, and pointing devices
 
 =item Keyboard
 
-    Term::Cap                  Standard perl distribution
-    Term::ReadKey              CPAN
-    Term::ReadLine::Gnu                CPAN
-    Term::ReadLine::Perl       CPAN
-    Term::Screen               CPAN
+       Term::Cap               Standard perl distribution
+       Term::ReadKey           CPAN
+       Term::ReadLine::Gnu     CPAN
+       Term::ReadLine::Perl    CPAN
+       Term::Screen            CPAN
 
 =item Screen
 
-    Term::Cap                  Standard perl distribution
-    Curses                     CPAN
-    Term::ANSIColor            CPAN
+       Term::Cap               Standard perl distribution
+       Curses                  CPAN
+       Term::ANSIColor         CPAN
 
 =item Mouse
 
-    Tk                         CPAN
+       Tk                      CPAN
 
 =back
 
-Some of these specific cases are shown below.
+Some of these specific cases are shown as examples in other answers
+in this section of the perlfaq.
 
 =head2 How do I print something out in color?
 
@@ -665,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;
@@ -679,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);
@@ -1252,7 +1253,7 @@ but other times it is not.  Modern programs C<use Socket;> instead.
 
 =head1 AUTHOR AND COPYRIGHT
 
-Copyright (c) 1997-2005 Tom Christiansen, Nathan Torkington, and
+Copyright (c) 1997-2006 Tom Christiansen, Nathan Torkington, and
 other authors as noted. All rights reserved.
 
 This documentation is free; you can redistribute it and/or modify it