fields.pm manpage: syntax error in example code

[p5pRT]

Migrated from rt.perl.org#964 (status was 'resolved')

Searchable as RT964$

[p5pRT]

From splice@zerg.com

Fields manpage​: http​://www.rge.com/CPAN/doc/manual/html/lib/fields.html The fields manpage has incorrect code at the bottom of the DESCRIPTION section. Here is the code​:

sub new   {   my $class = shift;   no strict 'refs';   my $self = bless [\%{"$class\​::FIELDS"]\, $class; # INCORRECT LINE   $self;   }

It's got an opening "{"\, but it's got no closing "}". I have tested this example under perl 5.005 and\, as expected\, it only works if you put in the closing "}". This is what the code should say​:

sub new   {   my $class = shift;   no strict 'refs';   my $self = bless [\%{"$class\​::FIELDS"}]\, $class; # CORRECT LINE   $self;   }

- David James beta@​home.com

Perl Info

``` Site configuration information for perl 5.005: Summary of my perl5 (5.0 patchlevel 5 subversion 00) 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='-O2 -MD -DNDEBUG -TP -GX', gccversion= cppflags='-DWIN32' ccflags '-O2 -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="d:\program files\devstudio\vc\lib" 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=f:\Perl32\5.005\bin\MSWin32-x86-object\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: @INC for perl 5.005: F:\PERL32\5.005\lib/MSWin32-x86-object F:\PERL32\5.005\lib F:\PERL32\site\5.005\lib/MSWin32-x86-object F:\PERL32\site\5.005\lib F:\PERL32\site\lib . Environment for perl 5.005: HOME (unset) LANG (unset) LD_LIBRARY_PATH (unset) LOGDIR (unset) PATH=f:\Perl32\5.005\bin\MSWin32-x86-object;f:\Perl32\5.005\bin;F:\PERL\BIN; F:\PERL\BIN;C:\PROGRA~1\ULTRAEDT;C:\WINDOWS;C:\WINDOWS\COMMAND;C:\WINDOWS\SY STEM;F:\PERL\BIN PERL_BADLANG (unset) SHELL (unset) ```