From 213329dd3d3cdcddf6cc727a9d45053e2788898b Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Fri, 9 Nov 2001 13:37:01 +0000 Subject: [PATCH] FAQ sync. p4raw-id: //depot/perl@12911 --- pod/perlfaq1.pod | 2 +- pod/perlfaq2.pod | 2 +- pod/perlfaq3.pod | 6 +++--- pod/perlfaq4.pod | 2 +- pod/perlfaq5.pod | 2 +- pod/perlfaq6.pod | 2 +- pod/perlfaq7.pod | 16 ++++------------ pod/perlfaq8.pod | 5 ++--- pod/perlfaq9.pod | 2 +- 9 files changed, 15 insertions(+), 24 deletions(-) diff --git a/pod/perlfaq1.pod b/pod/perlfaq1.pod index 1004e5216c..e9b1ef7184 100644 --- a/pod/perlfaq1.pod +++ b/pod/perlfaq1.pod @@ -1,6 +1,6 @@ =head1 NAME -perlfaq1 - General Questions About Perl ($Revision: 1.1 $, $Date: 2001/09/20 03:03:00 $) +perlfaq1 - General Questions About Perl ($Revision: 1.2 $, $Date: 2001/11/09 08:06:04 $) =head1 DESCRIPTION diff --git a/pod/perlfaq2.pod b/pod/perlfaq2.pod index 8068db9aed..71be980e10 100644 --- a/pod/perlfaq2.pod +++ b/pod/perlfaq2.pod @@ -1,6 +1,6 @@ =head1 NAME -perlfaq2 - Obtaining and Learning about Perl ($Revision: 1.2 $, $Date: 2001/10/16 13:27:22 $) +perlfaq2 - Obtaining and Learning about Perl ($Revision: 1.3 $, $Date: 2001/11/09 08:06:04 $) =head1 DESCRIPTION diff --git a/pod/perlfaq3.pod b/pod/perlfaq3.pod index 842f78cae4..8bd3d45399 100644 --- a/pod/perlfaq3.pod +++ b/pod/perlfaq3.pod @@ -1,6 +1,6 @@ =head1 NAME -perlfaq3 - Programming Tools ($Revision: 1.8 $, $Date: 2001/10/17 14:14:20 $) +perlfaq3 - Programming Tools ($Revision: 1.9 $, $Date: 2001/11/09 08:06:04 $) =head1 DESCRIPTION @@ -152,7 +152,7 @@ Put that in your F<.exrc> file (replacing the caret characters with control characters) and away you go. In insert mode, ^T is for indenting, ^D is for undenting, and ^O is for blockdenting-- as it were. A more complete example, with comments, can be found at -http://www.perl.com/CPAN-local/authors/id/TOMC/scripts/toms.exrc.gz +http://www.cpan.org/authors/id/TOMC/scripts/toms.exrc.gz If you are used to using the I program for printing out nice code to a laser printer, you can take a stab at this using @@ -423,7 +423,7 @@ directory http://www.cpan.org/modules/by-category/08_User_Interfaces/ Invaluable for Perl/Tk programming are the Perl/Tk FAQ at http://w4.lns.cornell.edu/%7Epvhp/ptk/ptkTOC.html , the Perl/Tk Reference Guide available at -http://www.perl.com/CPAN-local/authors/Stephen_O_Lidie/ , and the +http://www.cpan.org/authors/Stephen_O_Lidie/ , and the online manpages at http://www-users.cs.umn.edu/%7Eamundson/perl/perltk/toc.html . diff --git a/pod/perlfaq4.pod b/pod/perlfaq4.pod index d46bd15354..f602d24b27 100644 --- a/pod/perlfaq4.pod +++ b/pod/perlfaq4.pod @@ -1,6 +1,6 @@ =head1 NAME -perlfaq4 - Data Manipulation ($Revision: 1.7 $, $Date: 2001/10/26 19:46:03 $) +perlfaq4 - Data Manipulation ($Revision: 1.8 $, $Date: 2001/11/09 08:06:04 $) =head1 DESCRIPTION diff --git a/pod/perlfaq5.pod b/pod/perlfaq5.pod index 2d34bfa415..28888f6f6c 100644 --- a/pod/perlfaq5.pod +++ b/pod/perlfaq5.pod @@ -1,6 +1,6 @@ =head1 NAME -perlfaq5 - Files and Formats ($Revision: 1.3 $, $Date: 2001/10/16 13:27:22 $) +perlfaq5 - Files and Formats ($Revision: 1.4 $, $Date: 2001/11/09 08:06:04 $) =head1 DESCRIPTION diff --git a/pod/perlfaq6.pod b/pod/perlfaq6.pod index 81a9f3f21d..be7e8ecc73 100644 --- a/pod/perlfaq6.pod +++ b/pod/perlfaq6.pod @@ -1,6 +1,6 @@ =head1 NAME -perlfaq6 - Regexes ($Revision: 1.3 $, $Date: 2001/10/16 13:27:22 $) +perlfaq6 - Regexes ($Revision: 1.4 $, $Date: 2001/11/09 08:06:04 $) =head1 DESCRIPTION diff --git a/pod/perlfaq7.pod b/pod/perlfaq7.pod index cabfca134b..e0b2e8e0fb 100644 --- a/pod/perlfaq7.pod +++ b/pod/perlfaq7.pod @@ -1,6 +1,6 @@ =head1 NAME -perlfaq7 - Perl Language Issues ($Revision: 1.3 $, $Date: 2001/10/19 14:39:24 $) +perlfaq7 - Perl Language Issues ($Revision: 1.4 $, $Date: 2001/11/07 02:27:50 $) =head1 DESCRIPTION @@ -183,17 +183,9 @@ L and L. =head2 How can I tell if a variable is tainted? -See L. Here's an -example (which doesn't use any system calls, because the kill() -is given no processes to signal): - - sub is_tainted { - return ! eval { join('',@_), kill 0; 1; }; - } - -This is not C<-w> clean, however. There is no C<-w> clean way to -detect taintedness--take this as a hint that you should untaint -all possibly-tainted data. +You can use the tainted() function of the Scalar::Util module, available +from CPAN (or included with Perl since release 5.8.0). +See also L. =head2 What's a closure? diff --git a/pod/perlfaq8.pod b/pod/perlfaq8.pod index c093b77cc7..bf5d7a6a6f 100644 --- a/pod/perlfaq8.pod +++ b/pod/perlfaq8.pod @@ -1,6 +1,6 @@ =head1 NAME -perlfaq8 - System Interaction ($Revision: 1.2 $, $Date: 2001/10/16 13:27:22 $) +perlfaq8 - System Interaction ($Revision: 1.4 $, $Date: 2001/11/09 08:06:04 $) =head1 DESCRIPTION @@ -954,8 +954,7 @@ in L. There are a number of excellent interfaces to SQL databases. See the DBD::* modules available from http://www.cpan.org/modules/DBD . -A lot of information on this can be found at -http://www.symbolstone.org/technology/perl/DBI/ +A lot of information on this can be found at http://dbi.perl.org/ =head2 How do I make a system() exit on control-C? diff --git a/pod/perlfaq9.pod b/pod/perlfaq9.pod index e3488e5f5c..cdc00d6755 100644 --- a/pod/perlfaq9.pod +++ b/pod/perlfaq9.pod @@ -1,6 +1,6 @@ =head1 NAME -perlfaq9 - Networking ($Revision: 1.4 $, $Date: 2001/10/31 23:54:56 $) +perlfaq9 - Networking ($Revision: 1.5 $, $Date: 2001/11/09 08:06:04 $) =head1 DESCRIPTION -- 2.34.1