From lvirden@cas.org

-----------------------------------------------------------------

pragma/warning......PROG​:
# op.c
$ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3; # known scalar leak
use warning 'unsafe' ;
my $a ; my @​a = () ; my %a = () ; my $b = \@​a ; my $c = \%a ;
@​a =~ /abc/ ;
@​a =~ s/a/b/ ;
@​a =~ tr/a/b/ ;
@​$b =~ /abc/ ;
@​$b =~ s/a/b/ ;
@​$b =~ tr/a/b/ ;
%a =~ /abc/ ;
%a =~ s/a/b/ ;
%a =~ tr/a/b/ ;
%$c =~ /abc/ ;
%$c =~ s/a/b/ ;
%$c =~ tr/a/b/ ;
{
no warning 'unsafe' ;
my $a ; my @​a = () ; my %a = () ; my $b = \@​a ; my $c = \%a ;
@​a =~ /abc/ ;
@​a =~ s/a/b/ ;
@​a =~ tr/a/b/ ;
@​$b =~ /abc/ ;
@​$b =~ s/a/b/ ;
@​$b =~ tr/a/b/ ;
%a =~ /abc/ ;
%a =~ s/a/b/ ;
%a =~ tr/a/b/ ;
%$c =~ /abc/ ;
%$c =~ s/a/b/ ;
%$c =~ tr/a/b/ ;
}
EXPECTED​:
Applying pattern match to @​array will act on scalar(@​array) at - line 5.
Applying substitution to @​array will act on scalar(@​array) at - line 6.
Can't modify private array in substitution at - line 6, near "s/a/b/ ;"
Applying character translation to @​array will act on scalar(@​array) at - line 7.
Applying pattern match to @​array will act on scalar(@​array) at - line 8.
Applying substitution to @​array will act on scalar(@​array) at - line 9.
Applying character translation to @​array will act on scalar(@​array) at - line 10.
Applying pattern match to %hash will act on scalar(%hash) at - line 11.
Applying substitution to %hash will act on scalar(%hash) at - line 12.
Applying character translation to %hash will act on scalar(%hash) at - line 13.
Applying pattern match to %hash will act on scalar(%hash) at - line 14.
Applying substitution to %hash will act on scalar(%hash) at - line 15.
Applying character translation to %hash will act on scalar(%hash) at - line 16.
BEGIN not safe after errors--compilation aborted at - line 18.
GOT​:
Applying pattern match to @​array will act on scalar(@​array) at - line 5.
Applying substitution to @​array will act on scalar(@​array) at - line 6.
Can't modify private array in substitution at - line 6, near "s/a/b/ ;"
Applying character translation to @​array will act on scalar(@​array) at - line 7.
Applying pattern match to @​array will act on scalar(@​array) at - line 8.
Applying substitution to @​array will act on scalar(@​array) at - line 9.
Applying character translation to @​array will act on scalar(@​array) at - line 10.
Applying pattern match to %hash will act on scalar(%hash) at - line 11.
Applying substitution to %hash will act on scalar(%hash) at - line 12.
Applying character translation to %hash will act on scalar(%hash) at - line 13.
Applying pattern match to %hash will act on scalar(%hash) at - line 14.
Applying substitution to %hash will act on scalar(%hash) at - line 15.
Applying character translation to %hash will act on scalar(%hash) at - line 16.
BEGIN not safe after errors--compilation aborted at - line 18.
Scalars leaked​: 1
FAILED at test 137

I also noticed the following warnings​:
  ../perl -I ../lib ../pod/pod2man --section=3 --official Config.pm > /vol/lwv26ldatae/man/man3/Config.tmp
../pod/pod2man​: bad option in paragraph 1843 of Config.pm​: ``-o'' should be [CB]<-o>
../pod/pod2man​: bad option in paragraph 1843 of Config.pm​: ``-R'' should be [CB]<-R>
../pod/pod2man​: bad option in paragraph 1960 of Config.pm​: ``-S'' should be [CB]<-S>

  ../perl -I ../lib ../pod/pod2man --section=1 --official h2xs > /vol/lwv26ldatae/man/man1/h2xs.tmp
../pod/pod2man​: bad option in paragraph 152 of h2xs​: ``-e'' should be [CB]<-e>
../pod/pod2man​: bad option in paragraph 152 of h2xs​: ``-T'' should be [CB]<-T>
../pod/pod2man​: bad option in paragraph 161 of h2xs​: ``if( ! C<$opt_X> )'' should be [LCI]<if( ! C<$opt_X> )>
../pod/pod2man​: bad option in paragraph 161 of h2xs​: ``-I'' should be [CB]<-I>

  ../perl -I ../lib ../pod/pod2man --section=1 --official perllexwarn.pod > /vol/lwv26ldatae/man/man1/perllexwarn.tmp
../pod/pod2man​: Unmatched =back in paragraph 51 of perllexwarn.pod
../pod/pod2man​: perllexwarn.pod is missing required section​: DESCRIPTION

  ../perl -I ../lib ../pod/pod2man --section=1 --official perlxstut.pod > /vol/lwv26ldatae/man/man1/perlxstut.tmp
../pod/pod2man​: bad option in paragraph 9 of perlxstut.pod​: ``-V'' should be [CB]<-V>
../pod/pod2man​: bad option in paragraph 47 of perlxstut.pod​: ``-V'' should be [CB]<-V>

  ../perl -I ../lib ../pod/pod2man --section=3 --official Carp/Heavy.pm > /vol/lwv26ldatae/man/man3/Carp​::Heavy.tmp
../pod/pod2man​: bad option in paragraph 11 of Carp/Heavy.pm​: ``ord($1)'' should be [LCI]<ord($1)>
../pod/pod2man​: Carp/Heavy.pm is missing required section​: SYNOPSIS

  ../perl -I ../lib ../pod/pod2man --section=3 --official Exporter/Heavy.pm > /vol/lwv26ldatae/man/man3/Exporter​::Heavy.tmp
../pod/pod2man​: bad option in paragraph 22 of Exporter/Heavy.pm​: ``scalar(++$nontag,$_)'' should be [LCI]<scalar(++$nontag,$_)>
../pod/pod2man​: Exporter/Heavy.pm is missing required section​: SYNOPSIS

  ../perl -I ../lib ../pod/pod2man --section=3 --official filetest.pm > /vol/lwv26ldatae/man/man3/filetest.tmp
../pod/pod2man​: bad option in paragraph 4 of filetest.pm​: ``-r'' should be [CB]<-r>
../pod/pod2man​: bad option in paragraph 4 of filetest.pm​: ``-r'' should be [CB]<-r>
../pod/pod2man​: bad option in paragraph 4 of filetest.pm​: ``-r'' should be [CB]<-r>
../pod/pod2man​: filetest.pm is missing required section​: SYNOPSIS

  ../perl -I ../lib ../pod/pod2man --section=3 --official B/Stash.pm > /vol/lwv26ldatae/man/man3/B​::Stash.tmp
../pod/pod2man​: Invalid man page - no documentation in B/Stash.pm

and later​:

$ cd pod; make check
checking...
perldelta.pod​: line 196, no blank line preceeding directive =head2
perldiag.pod​: line 1531, no blank line preceeding directive =item
make​: *** [check] Error 1

Site configuration information for perl 5.00561:

Configured by lwv26 at Mon Aug 23 09:50:15 EDT 1999.

Summary of my perl5 (revision 5.0 version 5 subversion 61) configuration:
  Platform:
    osname=solaris, osvers=2.6, archname=sun4-solaris
    uname='sunos lwv26awu 5.6 generic_105181-15 sun4u sparc sunw,ultra-5_10 '
    config_args='-des'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef useperlio=undef d_sfio=undef
    use64bits=undef usemultiplicity=undef
  Compiler:
    cc='cc', optimize='-O', gccversion=
    cppflags=''
    ccflags ='-DDEBUGGING -DPERL_POLLUTE'
    stdchar='unsigned char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
    alignbytes=8, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib /usr/ccs/lib
    libs=-lsocket -lnsl -ldl -lm -lc -lcrypt -lsec
    libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
    cccdlflags='-KPIC', lddlflags='-G -L/usr/local/lib'

Locally applied patches:
    


@INC for perl 5.00561:
    lib
    /home/lwv26/lib/perl5/
    /projects/sprs_lwv/lib/perl5/
    /vol/lwv26ldatae/lib/perl5/5.006/sun4-solaris
    /vol/lwv26ldatae/lib/perl5/5.006
    /vol/lwv26ldatae/lib/perl5/site_perl/5.006/sun4-solaris
    /vol/lwv26ldatae/lib/site_perl
    .


Environment for perl 5.00561:
    HOME=/home/lwv26
    LANG=C
    LANGUAGE (unset)
    LD_LIBRARY_PATH=/lprod/cas/lib:/usr/dt/lib:/usr/openwin/lib:/usr/lib
    LOGDIR (unset)
    PATH=/opt/SUNWspro/bin:/ldatae/bin:/projects/sprs_lwv/sol26/bin:/projects/sprs_lwv/sol26/bin/mime:/projects/sprs_lwv/sol2/bin:/projects/sprs_lwv/bin:/projects/sprs_lwv/bin/mime:/home/lwv26/bin/D.news:/usr/perl5/bin:/projects/gnu/sparc-sun-solaris2.6/bin:/usr/tcl82/sun4/bin:/usr/tcl82/bin:/usr/tcl80/pd/sun4/bin:/usr/tcl80/pd/bin:/usr/tcl80/sun4/bin:/usr/tcl80/bin:/projects/xopsrc/sun4/bin:/projects/xopsrc/bin:/usr/atria/bin:/projects/intranet/bin:/projects/clearcase/bin:/vol/tclsrcsol/TclPro1.3/solaris-sparc/bin:/ldata2/teTeX/bin/sparc-sun-solaris2.6:/ldata/bin:/home/lwv26/bin/D.aws:/home/lwv26/bin/sol2:/home/lwv26/bin/D.frontend:/home/lwv26/bin/D.ksh:/cas/test/bin/sun4:/projects/sprs_lwv/bin/sol2:/usr/java1.2/bin:/home/lwv26/bin/sun4:/lprod/cas/bin:/usr/local/bin:/usr/dt/bin:/usr/openwin/bin:/bin:/cas/bin/sun4:/cas/abin/sun4:/cas/X11/sun4/bin:/usr/ccs/bin:/uprod/bin:/usr/sbin:/cas/tools/bin/sun4:/cas/X11/sun4/tools/bin:/usr/ucb:/home/lwv26/bin:/cas/tools/pdbin/sun4:/home/l!
wv26/bin/D.mistypes:/home/lwv26/bin/D.toys:/home/lwv26/bin/D.tools:/projects/npd/npdweb/bin-sol2
    PERL5LIB=/home/lwv26/lib/perl5/:/projects/sprs_lwv/lib/perl5/:
    PERLDOC=-t
    PERLLIB=/home/lwv26/lib/perl:/projects/sprs_lwv/lib/perl:
    PERL_BADLANG (unset)
    SHELL=/bin/sh

-- 
<URL: mailto:lvirden@cas.org> Quote: Save us from the snobs.
<*> O- <URL: http://www.purl.org/NET/lvirden/>
Unless explicitly stated to the contrary, nothing in this posting
should be construed as representing my employer's opinions.
-><-