Errata for Perl Cookbook

'tildas' NOW READS: 'tildes'

The comments "last word guaranteed to cap" and "first word guaranteed to cap" HAVE BEEN SWAPPED in order to match the substitiution commands they belong to.

The line: "closure args needed for void prototyping." is part of the comment line above and HAS BEEN REFORMATTED accordingly.

"$hours" variable NOW READS: "$hour"

Example 5-1 is a function name and NOW APPEARS in a code font.

is so, the negation failed NOW READS: if so, the negation failed

verticle NOW READS: vertical page 369- Example 9-6 has been corrected and NOW READS: --- #!/usr/bin/perl # symirror - build spectral forest of symlinks use warnings; use strict; use Cwd qw(realpath); use File::Find qw(find); die "usage: $0 realdir mirrordir" unless @ARGV == 2; our $SRC = realpath $ARGV[0]; our $DST = realpath $ARGV[1]; my $oldmask = umask 077; # in case was insanely uncreatable chdir $SRC or die "can't chdir $SRC: $!"; unless (-d $DST) { mkdir($DST, 0700) or die "can't mkdir $DST: $!"; } find { wanted => &shadow, postprocess => &fixmode, } => "."; umask $oldmask; sub shadow { (my $name = $File::Find::name) =~ s!^./!!; # correct name return if $name eq "."; if (-d) { # make a real dir; we'll copy mode later mkdir("$DST/$name", 0700) or die "can't mkdir $DST/$name: $!"; } else { # all else gets symlinked symlink("$SRC/$name", "$DST/$name") or die "can't symlink $SRC/$name to $DST/$name: $!"; } } sub fixmode { my $dir = $File::Find::dir; my $mode = (stat("$SRC/$dir"))[2] & 07777; chmod($mode, "$DST/$dir") or die "can't set mode on $DST/$dir: $!"; }

"... when stacking functions calls ..." NOW READS: "... when stacking function calls ..."

placing the mode in the second argument: NOW READS: place the mode in the second argument:

If don't have a filehandle NOW READS: If you don't have a filehandle

fnctl NOW READS: fcntl

Change: # the real uid is in stored in to: # the real uid is stored in

The empty lines before the last line: } should be removed.

return $errcount ? undef() : %record; Should be: return $errcount ? undef : \%record; Here's the entire piece of code, corrected: sub cite { my (%record, $errcount); ... return $errcount ? undef : \%record; } $op_cit = cite($bid) or die "couldn't make a reference ";

the stated output should have a line with a 0 first. The old was: print &$counter1, " ", &$counter2, " "; 1 2 3 4 5 0 and should read instead print &$counter1, " ", &$counter2, " "; 0 1 2 3 4 5 0

"Cards::Poke::shuffle" should be "Cards::Poker::shuffle"

To load the module at compile time but request that no symbols be exported, use the special form C<use Exporter ()>, with empty parentheses. And it should read: To load the module at compile time but request that no symbols be exported, use the special form C<use Your Module ()>, supplying empty parentheses for the import list.

Line % tar xf Some-Module-4.54 should read % tar xf Some-Module-4.54.tar

if (index($_, $Start_Dir . "/") = = 0) { This generates an error at compile time. Should be modified to read: if (index($_, $Start_Dir . "/") == 0) {

Line $obj->$methname(10); # invokes $ob->flicker(10); should read $obj->$methname(10); # invokes $obj->flicker(10); Many examples use '$obj' as the example object reference variable. This page uses two different example variable names, '$obj' under Solution and '$ob' under Discussion.

Change Provising you have an ANSI C compiler to Providing you have an ANSI C compiler

RaiseError > 1 NOW READS: RaiseError => 1

Change: The simplest user interface is what we are called to, say: The simplest user interface is what are called

Change: module Term::Cap module to, say: Term::Cap module

Change: print colored("venom lack ", "red", on_black"); to: print colored("venom lack ", "red", "on_black");

'The section on The section on "Talking to yourself" ...' should say: 'The section on "Talking to yourself" ...'

Line 38 currently reads: if ($client = = $server) { Line 38 should read: if ($client == $server) {

Lines 88-89 currently read: if ($rv = = length $outbuffer{$client} || $! = = POSIX::EWOULDBLOCK ) Lines 88-89 should read: if ($rv == length $outbuffer{$client} || $! == POSIX::EWOULDBLOCK )

"It looks strange to see all those chained method invocation" should read: "It looks strange to see all those chained method invocations"

The line: # Iterate over addresses give on command line. should read: # Iterate over addresses given on command line.

"display a list of product to edit" should read: "display a list of products to edit"

The module does not work on nested tables.

this strict separation of business from presentation logic... NOW READS: This strict separation of business from presentation logic...

Unicode letters...are all acceptable in element and attribute name, ... NOW READS: Unicode letters...are all acceptable in element and attribute names, ... 868) 2nd paragraph, 2nd sentence; The most important action you do with a schemas... NOW READS: The most important action you do with schemas...

Use closures to let XSLT access to Perl variables... NOW READS: Use closures to let XSLT access Perl variables...

You want to create an Rich Site Summary... NOW READS: You want to create a Rich Site Summary...