Skip Menu |
Report information
Id: 1111
Status: resolved
Priority: 0/
Queue: perl5

Owner: Nobody
Requestors: nick [at] flirble.org
Cc:
AdminCc:

Operating System: Solaris
PatchStatus: (no value)
Severity: medium
Type: library
Perl Version: (no value)
Fixed In: (no value)



From: Nicholas Clark <nick [...] flirble.org>
Subject: Not OK: perl 5.00558 on sun4-solaris 2.7 (UNINSTALLED)
To: perlbug [...] perl.com
Date: Thu, 29 Jul 1999 19:51:46 +0100 (BST)
Download (untitled) / with headers
text/plain 5.8k
----------------------------------------------------------------- [Please enter your report here] pragma/warning.t fails test 135 if I run it with the TEST script. If I run it direct it passes all tests: bash-2.03$ ./TEST pragma/warning.t 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 Failed 1 test script out of 1, 0.00% okay. ### Since not all tests were successful, you may want to run some ### of them individually and examine any diagnostic messages they ### produce. See the INSTALL document's section on "make test". ### If you are testing the compiler, then ignore this message ### and run ### ./perl harness ### in the directory ./t. u=0.04 s=0.05 cu=3.49 cs=2.62 scripts=1 tests=294 I got 100% test pass when I built without -g -DDEBUGGING (but I want DEBUGGING because I've got a coredump in S_save_scalar_at() I'm tracking down) Nicholas Clark [Please do not change anything below this line] ----------------------------------------------------------------- --- Site configuration information for perl 5.00558: Configured by nick at Wed Jul 28 12:19:48 BST 1999. Summary of my perl5 (revision 5.0 version 5 subversion 58) configuration: Platform: osname=solaris, osvers=2.7, archname=sun4-solaris uname='sunos kurt 5.7 generic sun4u sparc sunw,ultra-5_10 ' config_args='' hint=recommended, useposix=true, d_sigaction=define usethreads=undef useperlio=undef d_sfio=undef use64bits=define usemultiplicity=undef Compiler: cc='cc', optimize='-O', gccversion=2.8.1 cppflags='-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -DUSE_LONG_LONG -I/usr/local/include' ccflags ='-g -DDEBUGGING -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -DUSE_LONG_LONG -I/usr/local/include' stdchar='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 -lrt -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='-fPIC', lddlflags='-G -L/usr/local/lib' Locally applied patches: --- @INC for perl 5.00558: lib /home/nick/perldev/lib/5.00558/sun4-solaris /home/nick/perldev/lib/5.00558 /home/nick/perldev/lib/site_perl/5.00558/sun4-solaris /home/nick/perldev/lib/site_perl . --- Environment for perl 5.00558: HOME=/home/nick LANG=en_GB.ISO8859-15 LANGUAGE (unset) LC_COLLATE=en_GB.ISO8859-15 LC_CTYPE=en_GB.ISO8859-15 LC_MESSAGES=C LC_MONETARY=en_GB.ISO8859-15 LC_NUMERIC=en_GB.ISO8859-15 LC_TIME=en_GB.ISO8859-15 LD_LIBRARY_PATH (unset) LOGDIR (unset) PATH=/home/nick/bin:/usr/local/bin:/bin:/usr/bin:/usr/dt/bin:/usr/openwin/bin:/usr/dt/bin:/usr/openwin/bin:/bin:/usr/bin:/usr/ucb:/usr/ccs/bin:/sbin:/usr/sbin:/usr/local/sbin:/usr/etc PERL_BADLANG (unset) SHELL=/usr/local/bin/bash


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

For issues related to this RT instance (aka "perlbug"), please contact perlbug-admin at perl.org