Learning Perl Objects, References & Modules
by Randal L. Schwartz With Tom Phoenix

The following errata were *corrected* in the 11/05 reprint:

Here's a key to the markup:
	[page-number]: serious technical mistake
	{page-number}: minor technical mistake
	<page-number>: important language/formatting problem
	(page-number): language change or minor formatting problem



(vi)  under "13. Writing a Distribution";
"Controlling the Distribution withMakefile.PL"

NOW READS:
"Controlling the Distribution with Makefile.PL"


(1)  First sentence;
"Welcome to next step in your understanding of Perl."

NOW READS: 
"Welcome to the next step in your understanding of Perl."


(11) code block
turn_toward_heading(compute_heading_to_island());

NOW READS:
turn_towards_heading(compute_heading_to_island());


(12) 
navigation_turn_toward_heading(compute_heading_to_island());

NOW READS:
navigation_turn_towards_heading(compute_heading_to_island());


(13) first code block, line 3
turn_towards_port()

NOW READS:
turn_toward_port()


(13) second code block, line 4
turn_towards_port()

NOW READS:
turn_toward_port()


(13) 2nd code block
Navigation::turn_toward_heading(compute_heading_to_island());

NOW READS:
Navigation::turn_towards_heading(compute_heading_to_island());


(14) 2nd line of code:
@homeport = (21.1, -157.525);

NOW READS:
@homeport = (21.283, -157.842);


(14) Trivia Note
(Trivia note: 21.1 degrees north, 157.525 degrees west is the location...

NOW READS:
(Trivia note: 21.283 degrees north, 157.842 degrees west is the location...


(14) code block at bottom of page, line 9 (twice)
turn_towards_port()

NOW READS:
turn_toward_port()


(15), first code block, line 2:
@homeport = (21.1, -157.525);

NOW READS:
@homeport = (21.283, -157.842);


(19)  code samples of copying reference;
$third_reference_skipper

NOW READS:
$third_reference_to_skipper


(19) middle of page
if ($reference_to_skipper = = $second_reference_to_skipper) {
  print "They are identical references.\n";

NOW READS:
if ($reference_to_skipper == $second_reference_to_skipper) {
  print "They are identical references.\n";


(38)  2nd paragraph;
"anonymous hash" 

NOW READS:
"anonymous array"


(39)  First paragraph;
"Thus, you cam rewrite the roster creation as:"

NOW READS:
"Thus, you can rewrite the roster creation as:"


(49)  Code after third paragraph, the variable;
$totalbytes

NOW READS:
$total_bytes


(62)  middle;
Professor: By my calculations, you must be Gilligan!\n";
Professor: By my calculations, you must be Skipper!\n";

NOW READS:
Professor: By my calculations, you must be Gilligan!
Professor: By my calculations, you must be Skipper!


{127}  section 11.2, after 3th text paragraph;
  my @horses_only = ref $_ eq "Horse", @all_animals;

NOW READS:
  my @horses_only = grep ref $_ eq "Horse", @all_animals;


{134}  3rd block of code;
  print $fh, "$_\n" for 1..10;

NOW READS:
  print $fh "$_\n" for 1..10;


{191}  Second line of the speak function of the Mouse class;
$class->SUPER::speak;

NOW READS:
$class->SUPER::speak(@_);


[193]  3rd code block;
"sub color" 

NOW READS: 
"sub default_color".