From Jon.Waddington@janus.com

I noticed a minor error in the perltoot.html documentation. The "Other
Object Methods" section contains a sample object method, shown here​:

  sub exclaim {
  my $self = shift;
  return sprintf "Hi, I'm %s, age %d, working with %s",
  $self->{NAME}, $self->{AGE}, join(", ", $self->{PEERS});
  }

This method should read​:

  sub exclaim {
  my $self = shift;
  return sprintf "Hi, I'm %s, age %d, working with %s",
  $self->{NAME}, $self->{AGE}, join(", ", @​{$self->{PEERS}});
  }

The first bit of code returns the reference to the array in question, not
the array itself (at least on my machine). Later in the section, we are
warned about the tradeoffs of using direct hash access, which is a bit
ironic.

As I said, this is very minor, but I just thought someone should know....

Jon Waddington
jon.waddington@​janus.com

Site configuration information for perl 5.00503​:

Summary of my perl5 (5.0 patchlevel 5 subversion 03) configuration​:
  Platform​:
  osname=MSWin32, osvers=4.0, archname=MSWin32-x86-object
  uname=''
  hint=recommended, useposix=true, d_sigaction=undef
  usethreads=undef useperlio=undef d_sfio=undef
  Compiler​:
  cc='cl.exe', optimize='-Od -MD -DNDEBUG -TP -GX', gccversion=
  cppflags='-DWIN32'
  ccflags ='-Od -MD -DNDEBUG -TP -GX -DWIN32 -D_CONSOLE -DNO_STRICT
-DHAVE_DES_FCRYPT -DPERL_OBJECT'
  stdchar='char', d_stdstdio=define, usevfork=false
  intsize=4, longsize=4, ptrsize=4, doublesize=8
  d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10
  alignbytes=8, usemymalloc=n, prototype=define
  Linker and Libraries​:
  ld='link', ldflags ='-nologo -nodefaultlib -release -machine​:x86'
  libpth="C​:\Perl\lib\core"
  libs= oldnames.lib kernel32.lib user32.lib gdi32.lib winspool.lib
comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib netapi32.lib
uuid.lib wsock32.lib mpr.lib winmm.lib version.lib odbc32.lib odbccp32.lib
PerlCRT.lib
  libc=C​:\Perl\lib\core\PerlCRT.lib, so=dll, useshrplib=yes,
libperl=perlcore.lib
  Dynamic Linking​:
  dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
  cccdlflags=' ', lddlflags='-dll -nologo -nodefaultlib -release
-machine​:x86'

Locally applied patches​:
  ACTIVEPERL_LOCAL_PATCHES_ENTRY

@​INC for perl 5.00503​:
  C​:/Perl/lib
  C​:/Perl/site/lib
  .

Environment for perl 5.00503​:
  HOME (unset)
  LANG (unset)
  LANGUAGE (unset)
  LD_LIBRARY_PATH (unset)
  LOGDIR (unset)

PATH=C​:\Perl\bin;C​:\Perl\bin;C​:\Perl\lib;C​:\WINNT\system32;C​:\WINNT;C​:\Prog
ram
Files\BusinessObjects;C​:\ORANT\BIN;C​:\PROGRA1\MICROS1\Office;C​:\SQLLIB\BI
N;C​:\SQLLIB\FUNCTION;C​:\Sybase\DLL;C​:\Sybase\BIN;C​:\SNA\system;Z​:.;C​:\PROGR
A~1\EXTRA!
  PERL_BADLANG (unset)
  SHELL (unset)