Errata for Advanced Perl Programming

http://reference.perl.com/ . Also added updated contact info to "We'd Like to Hear From You" section.

changed "[$i]" to "[1]"

line on the page, changed "x$rarray" to "$rarray"

Changed Name "Garibaldi" to "E. F. Schumacher"

day's "base hour" ...") that reads as follows: $to = 19 if $to == 7; also on 31: in what is now line 14 of the 1st code example, changed "24" to "12" and "31" to "21"; in the second code example, line 8: changed "office_hourse" to "office_hours"; finally, re-broke line 3 of the first code example so that it breaks at the equals sign and line 4 begins with "($day_hours"

changed for $j ($i .. $#{$rl_courses}) { to for $j ($i+1 .. $#{$rl_courses}) {

... die "Could not open database: $:"; Changed "$:" to "$!"

symbol table entry should be "spud" not "spud::"

code 2: last line now reads: print @potato, " "; # prints "idaho russet"

referring to '$&rs()' now reads '&$rs()'

changed $rsub->(10); to $rs->(10);

$rs = sub { now reads: my $rs = sub {

48K NOW READS 32K.

changed If @patterns contains the three strings "^abc", "ghi", "efg$", to If @patterns contains the three strings "^foo", "bar$", "ghi",

text) to "$::x"

"Perl first looks for the file given to use or require in the current directory and then looks up the @INC built-in array to search the include paths." now reads: "Perl looks for the file given to use or require in the list of directories specified in the built-in array, @INC."

changed "Create a variable subroutine and subroutine..." to "Create a variable and a subroutine..."

code, one in text)

"If the module uses @EXPORT instead of @EXPORT_OK, the user gets all the exported symbols, regardless of whether they were mentioned in the import list or not." now reads: "If the module uses @EXPORT instead of @EXPORT_OK, the user gets all the exported symbols by default, unless the import list specifies one or more symbols."

changed : $obj->{_price} - $obj->_rebate} to : $obj->{_price} - $obj->{_rebate}

changed $r_employee->position... to $emp->position...

"@_ATTRIBUTES" is now "@_ATTRIBUTES_"

$$_[0] was fixed to it doesn't split across lines.

now reads: # Or, $obj->set_attributes (['age', 'name'], [23, "sriram"]) sub set_attributes {

"TIESCALAR", and in the third item of the same column, changed "65" to "20"

"the Win32::Timer call" NOW READS "the Win32::Timer package."

This para. is redundant (although correct in intention) because STORE has not been implemented in the preceding example.

the 2nd line of the next-to-last text para., changed "multiwny" to "multiway"

changed $sth = $dbh->prepare('insert into emptable (name, age) values (? , ?)';); to $sth = $dbh->prepare('insert into emptable (id, name, age) values (?, ? , ?)';);

"select clause" now reads "select command."

changed @ATTRIBUTES = qw(....); to attributes qw(....);

changed [Employee] attributes = _id, name, age, ... to %g_attr_names = ( "Employee" => [qw(name age)] "Department" => [qw(name address)] );

print $sock "Msg $_ : How are you? "; inserted the line $sock->flush();

sockets"

"Make these sockets nonblocking"

"unless ($main_sock)"

changed ($new_readable) = IO:Select->select($readable_handles, undef, undef, 0); to ($new_readable) = IO:Select->select($readable_handles, undef, undef, undef);

"to read from"

"rcv_callback" now reads "rcv_cb" to match left hand side.

"rcv_callback" NOW READS "rcv_cb."

"The socket object (of the class IO::Socket::INET class)"

changed "and bytes_to_read contains the bytes still expected" to "and bytes_to_read contains the number of bytes still expected"

"return only if there's an error" now reads "return immediately if there's an error".

changed $offset = length($msg) - 1; to $offset = length($msg);

changed RPC->new_rpc_server to RPC->new_server

"contains the resize handles" now reads "is surrounded by the resize handles".

"column 5" is now "column 6".

apply formatting"

The "." at the end of the line was removed.

changed my $key = shift to: my $key = pop

A missing close paren after !!!" HAS BEEN ADDED.

"nullifies %block" is now "nullifies @block_cells"

"nullifies %block_cells" NOW READS "nullifies @block_cells".

changed $w_top = MainWindow->new('Tetris - Perl/Tk'); to $w_top = MainWindow->new(-title => 'Tetris - Perl/Tk');

"IO::Socket"

table mentions @IF @ELSE ... but code does not implement it.

"-only_if_different"

"OBJECT and LIB" now reads "OBJECT and LIBS".

first code line: "main()" now reads: int main(int argc, char **argv, char **env)

"shaded rectangles" should be "dark shaded rectangles."

"structure called op" now reads "structure called OP."

"SVTYPE" now reads "SvTYPE".

line -5 of code: the call to create_envt_vars() now reads: create_envt_vars(env);

xhv_keys should have "5" next to it, not "6".

now reads: You should always set create to FALSE, because a TRUE value automatically creates a blank CV if the subroutine is not present, which is useless to an application writer.

changed "(Yes, you'll need to cast the CV to an SV.)" to "(Yes, you'll need to cast the CV* to an SV*.)"

not really a bug, but a matter of style (unnecessarily using global variables) Insert my ($rs_increment, $rs_abc); after the line: my $abc = 10;

MAGIC *m = mg_find(sv,'~');

changed "would not be an issue for ANSI C or C++ compilers" to "would not be an issue for C++ compilers"

changed for (; *ret; ret++, i++) { XPUSHs (sv_2mortal(newSVpv(*ret, 0))); } free (ret); to char **p = ret; for (; *p; p++, i++) { XPUSHs (sv_2mortal(newSVpv(*p, 0))); } free(p)

"is released over the button" now reads "is clicked over the button" in all three instances.

"Indicates the first and last character of a tag" NOW READS: "Indicates the first and last character of the selection range."

changed "# reference to anon. scalar" to "# reference to anonymous array"

"if it supports method "bar""