Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Not OK: perl 5.00558 on ppc-linux 2.2.10 (UNINSTALLED) #257

Closed
p5pRT opened this issue Jul 27, 1999 · 1 comment
Closed

Not OK: perl 5.00558 on ppc-linux 2.2.10 (UNINSTALLED) #257

p5pRT opened this issue Jul 27, 1999 · 1 comment

Comments

@p5pRT
Copy link

p5pRT commented Jul 27, 1999

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

Searchable as RT1074$

@p5pRT
Copy link
Author

p5pRT commented Jul 27, 1999

From schinder@pobox.com

-----------------------------------------------------------------
All tests passed but the expected one​:

pragma/warning......PROG​:
# pp_hot.c
use warning 'io' ;
print STDIN "anc";
print <STDOUT>;
print <STDERR>;
open(FOO, ">&STDOUT") and print <FOO>;
print getc(STDERR);
print getc(FOO);
read(FOO,$_,1);
no warning 'io' ;
print STDIN "anc";
###############################################################
# N O T E #
# This test is known to fail on Linux systems with glibc. #
# The glibc development team is aware of the problem, and has #
# determined a fix for the next release of that library. #
###############################################################
EXPECTED​:
Filehandle main​::STDIN opened only for input at - line 3.
Filehandle main​::STDOUT opened only for output at - line 4.
Filehandle main​::STDERR opened only for output at - line 5.
Filehandle main​::FOO opened only for output at - line 6.
Filehandle main​::STDERR opened only for output at - line 7.
Filehandle main​::FOO opened only for output at - line 8.
Filehandle main​::FOO opened only for output at - line 9.
GOT​:
Filehandle main​::STDIN opened only for input at - line 3.
Filehandle main​::STDOUT opened only for output at - line 4.
Filehandle main​::STDERR opened only for output at - line 5.
Filehandle main​::FOO opened only for output at - line 6.
Filehandle main​::STDERR opened only for output at - line 7.
Filehandle main​::FOO opened only for output at - line 8.
FAILED at test 190

Perl Info


Site configuration information for perl 5.00558:

Configured by schinder at Tue Jul 27 09:34:49 EDT 1999.

Summary of my perl5 (revision 5.0 version 5 subversion 58) configuration:
  Platform:
    osname=linux, osvers=2.2.10, archname=ppc-linux
    uname='linux schinder.clark.net 2.2.10 #7 fri jun 18 10:13:46 est 1999 ppc unknown '
    config_args='-Dcc=gcc -Dprefix=/usr/local -des'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef useperlio=undef d_sfio=undef
    use64bits=undef usemultiplicity=undef
  Compiler:
    cc='gcc', optimize='-O2', gccversion=egcs-2.91.66 19990314 (egcs-1.1.2 release)
    cppflags='-Dbool=char -DHAS_BOOL -I/usr/local/include'
    ccflags ='-Dbool=char -DHAS_BOOL -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=8
    alignbytes=8, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='gcc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lnsl -lndbm -lgdbm -ldb -ldl -lm -lc -lposix -lcrypt
    libc=/lib/libc-1.99.so, so=so, useshrplib=false, libperl=libperl.a
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
    cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'

Locally applied patches:
    


@INC for perl 5.00558:
    lib
    /usr/local/lib/perl5/5.00558/ppc-linux
    /usr/local/lib/perl5/5.00558
    /usr/local/lib/site_perl/5.00558/ppc-linux
    /usr/local/lib/site_perl
    .


Environment for perl 5.00558:
    HOME=/usr/local/src
    LANG (unset)
    LANGUAGE (unset)
    LD_LIBRARY_PATH=/usr/local/lib:/usr/local/qt/lib:/lib:/usr/lib:/usr/X11R6/lib
    LOGDIR (unset)
    PATH=.:/usr/local/bin:/usr/local/egcs/bin:/bin:/sbin:/usr/bin:/usr/etc:/usr/sbin:/usr/local/sbin:/usr/X11R6/bin:/home/schinder/bin:/var/qmail/bin:/usr/X11R6/bin:/usr/bin/mh
    PERL_BADLANG (unset)
    SHELL=/bin/sh

@p5pRT p5pRT closed this as completed Nov 28, 2003
toddr pushed a commit that referenced this issue Oct 19, 2019
detected by CPAN,
wrong recursion warning with CPAN write_metadata_cache.
There's no recursion involved, just nesting a hash into a big
array will fail.

(cherry picked from commit 2804828)
toddr pushed a commit that referenced this issue Oct 19, 2019
Store each recursive SV and only ++depth when recursing
into this same SV, not nested into 2 levels, for performance reasons.
(We'd really need to store a hash, but this would be slow.)
So it only protects from the simpliest stack exhaustion attacks,
others still will segfault.
Decrease the max depth numbers: 2000 for RV and AV, 1000 for HV,
experimentally tested for normal stack sizes.

At least it doesnt falsely error with an arrayref nested into another
big array, as with the CPAN write_metadata_cache.
Check now also refs recursion into each other.

Closes #257.

(cherry picked from commit cd2b11a)

Conflicts:
	dist/Storable/Storable.pm
	pod/perlcdelta.pod
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Projects
None yet
Development

No branches or pull requests

1 participant