Errata

'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...