Not OK: perl 5.00558 on sun4-solaris 2.6 (UNINSTALLED)

[p5pRT]

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

Searchable as RT1107$

[p5pRT]

From [email protected]

Sorry about that - I think this will be a bit better!

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 135

lib/dprof...........ld.so.1​: ../perl​: fatal​: relocation error​: file /vol/lwv26ldatae/lib/perl5/site_perl/5.005/sun4-solaris/auto/Devel/DProf/DProf.so​: symbol perl_get_cv​: referenced symbol not found
FAILED at test 1

I then cd'd into the t directory and ran perl harness there as suggested
by INSTALL. I got

op/stat.............FAILED test 39
  Failed 1/58 tests, 98.28% okay

pragma/warning......ok

lib/dprof...........ld.so.1​: ../perl​: fatal​: relocation error​: file /vol/lwv26ldatae/lib/perl5/site_perl/5.005/sun4-solaris/auto/Devel/DProf/DProf.so​: symbol perl_get_cv​: referenced symbol not found
ld.so.1​: ../perl​: fatal​: relocation error​: file /vol/lwv26ldatae/lib/perl5/site_perl/5.005/sun4-solaris/auto/Devel/DProf/DProf.so​: symbol perl_get_cv​: referenced symbol not found
ld.so.1​: ../perl​: fatal​: relocation error​: file /vol/lwv26ldatae/lib/perl5/site_perl/5.005/sun4-solaris/auto/Devel/DProf/DProf.so​: symbol perl_get_cv​: referenced symbol not found
ld.so.1​: ../perl​: fatal​: relocation error​: file /vol/lwv26ldatae/lib/perl5/site_perl/5.005/sun4-solaris/auto/Devel/DProf/DProf.so​: symbol perl_get_cv​: referenced symbol not found
ld.so.1​: ../perl​: fatal​: relocation error​: file /vol/lwv26ldatae/lib/perl5/site_perl/5.005/sun4-solaris/auto/Devel/DProf/DProf.so​: symbol perl_get_cv​: referenced symbol not found
ld.so.1​: ../perl​: fatal​: relocation error​: file /vol/lwv26ldatae/lib/perl5/site_perl/5.005/sun4-solaris/auto/Devel/DProf/DProf.so​: symbol perl_get_cv​: referenced symbol not found
FAILED tests 1-10, 12-18
  Failed 17/18 tests, 5.56% okay

When I ran op/stat.t directly I got​:

#4 :933261597​: should != :933261599​:

Perl Info

Site configuration information for perl 5.00558:

Configured by lwv26 at Wed Jul 28 15:24:24 EDT 1999.

Summary of my perl5 (revision 5.0 version 5 subversion 58) configuration:
  Platform:
    osname=solaris, osvers=2.6, archname=sun4-solaris
    uname='sunos lwv26awu 5.6 generic_105181-14 sun4u sparc sunw,ultra-5_10 '
    config_args='-des'
    hint=previous, useposix=true, d_sigaction=define
    usethreads=undef useperlio=undef d_sfio=undef
    use64bits=undef usemultiplicity=undef
  Compiler:
    cc='cc', optimize='-O', gccversion=
    cppflags='-DDEBUGGING -I/projects/gnu/sparc-sun-solaris2.6/include -I/vol/lwv26ldatae/include -I/usr/ccs/include -I/usr/include'
    ccflags ='-DDEBUGGING -I/projects/gnu/sparc-sun-solaris2.6/include -I/vol/lwv26ldatae/include -I/usr/ccs/include -I/usr/include'
    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/projects/gnu/sparc-sun-solaris2.6/lib -L/vol/lwv26ldatae/lib -L/usr/ccs/lib -R/projects/gnu/sparc-sun-solaris2.6/lib:/vol/lwv26ldatae/lib:/usr/ccs/lib'
    libpth=/projects/gnu/sparc-sun-solaris2.6/lib /vol/lwv26ldatae/lib /usr/ccs/lib /usr/lib
    libs=-lsocket -lnsl -lgdbm -ldb -ldl -lm -lc -lcrypt
    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='-R/projects/gnu/sparc-sun-solaris2.6/lib:/vol/lwv26ldatae/lib:/usr/ccs/lib -G -L/projects/gnu/sparc-sun-solaris2.6/lib -L/vol/lwv26ldatae/lib -L/usr/ccs/lib'

Locally applied patches:
    


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


Environment for perl 5.00558:
    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/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.2/solaris-sparc/bin:/ldata2/teTeX/bin/sparc-sun-solaris2.6:/usr/tcl81/sun4/bin:/usr/tcl81/bin:/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

[p5pRT]

From [Unknown Contact. See original ticket]

At 17​:20 +0200 1999-07-29, Larry W. Virden wrote​:

pragma/warning......PROG​:
# op.c
$ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3; #
known scalar leak
use warning 'unsafe' ;
[...]
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

I see precisely the same under MachTen (after some tweaking involving
getspent(), which I'll cover when I get around to posting a Not OK message).

--
Dominic Dunlop