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 v5.8.0 +DEVEL17164 on i686-linux 2.4.5 (UNINSTALLED) #5560

Closed
p5pRT opened this issue Jun 11, 2002 · 3 comments
Closed

Not OK: perl v5.8.0 +DEVEL17164 on i686-linux 2.4.5 (UNINSTALLED) #5560

p5pRT opened this issue Jun 11, 2002 · 3 comments

Comments

@p5pRT
Copy link

p5pRT commented Jun 11, 2002

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

Searchable as RT9535$

@p5pRT
Copy link
Author

p5pRT commented Jun 11, 2002

From phillipps@ntlworld.com

The good news - on my setup, this snapshot passed all tests.

The bad news​:

I reported this bug [ID 20010823.013] a while back - it was introduced
sometime between 5.00557 and 5.6 [I think - I did do a bit of a binary
chop on it at that time]. It's still in this version.

This code will SEGV. This is AFAICT the minimal code that does - it's a
bit simpler than the code in the previous bug report. The "print" isn't
essential, but it does mean that the code prints "OK\n" if the bug has
been fixed.

Removing the BEGIN, or moving the initialisation of $bar to a new BEGIN
block (but not the same one!) removes the problem. So does leaving $bar
undefined, or moving the init code lexically before the BEGIN (!).

Note that '$bar' is single quotes - it's intended as a minimal piece of
perl code to be evaled.

#! /usr/bin/perl

BEGIN {
  $actions = sub { eval $_[0] }
}
$bar="OK\n";
print &{$actions}( '$bar' ) ;

__END__

The stacktrace looks like this​:

#0 0x80a1d71 in Perl_av_fetch () at eval.c​:88
#1 0x807eba8 in S_pad_findlex () at eval.c​:88
#2 0x807f11f in Perl_pad_findmy () at eval.c​:88
#3 0x8075f0d in S_pending_ident () at eval.c​:88
#4 0x8069692 in Perl_yylex () at eval.c​:88
#5 0x807cdb6 in Perl_yyparse () at eval.c​:88
#6 0x80c99c8 in S_doeval () at eval.c​:88
#7 0x80cb2bc in Perl_pp_entereval () at eval.c​:88
#8 0x80a38e0 in Perl_runops_standard () at eval.c​:88
#9 0x805f4a5 in S_run_body () at eval.c​:88
#10 0x805f20e in perl_run () at eval.c​:88
#11 0x805caf6 in main () at eval.c​:88
#12 0x400782eb in __libc_start_main (main=0x805ca70 <main>, argc=2,

[hmm... presumably this would make more sense if -g were set...]

Perl Info

Flags:
    category=install
    severity=none

Site configuration information for perl v5.8.0:

Configured by ian at Mon Jun 10 22:45:05 BST 2002.

Summary of my perl5 (revision 5.0 version 8 subversion 0 patch 17164) configuration:
  Platform:
    osname=linux, osvers=2.4.5, archname=i686-linux
    uname='linux homer 2.4.5 #10 fri jun 22 02:20:21 pdt 2001 i686 unknown '
    config_args='-der'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
    useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='cc', ccflags ='-fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
    optimize='-O3',
    cppflags='-fno-strict-aliasing -I/usr/local/include'
    ccversion='', gccversion='2.95.3 20010315 (release)', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=4, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lnsl -lndbm -lgdbm -ldl -lm -lc -lcrypt -lutil
    perllibs=-lnsl -ldl -lm -lc -lcrypt -lutil
    libc=/lib/libc-2.2.3.so, so=so, useshrplib=false, libperl=libperl.a
    gnulibc_version='2.2.3'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-rdynamic'
    cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'

Locally applied patches:
    DEVEL17164


@INC for perl v5.8.0:
    lib
    /u2/ian/lib/perl5
    /u2/ian/perl
    /usr/local/lib/perl5/5.8.0/i686-linux
    /usr/local/lib/perl5/5.8.0
    /usr/local/lib/perl5/site_perl/5.8.0/i686-linux
    /usr/local/lib/perl5/site_perl/5.8.0
    /usr/local/lib/perl5/site_perl
    .


Environment for perl v5.8.0:
    HOME=/u2/ian
    LANG (unset)
    LANGUAGE (unset)
    LC_ALL=POSIX
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/u2/ian/cmd:/u2/ian/Linux:/usr/local/bin:/u2/ian/stocks/cmd:/opt/gnome/bin:/opt/kde/bin:/usr/openwin/bin:/usr/bin/X11:/usr/bin:/bin:/usr/etc:/sbin:/usr/sbin
    PERL5LIB=/u2/ian/lib/perl5:/u2/ian/perl
    PERL_BADLANG (unset)
    SHELL=/bin/sh


@p5pRT
Copy link
Author

p5pRT commented Feb 4, 2003

From @iabyn

I'm closing this bug report, as it's been fixed in bleedperl
by patches 17923 and 18302

Regards,

Dave M.

@p5pRT p5pRT closed this as completed Feb 4, 2003
@p5pRT
Copy link
Author

p5pRT commented Feb 4, 2003

@iabyn - Status changed from 'open' to 'resolved'

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

No branches or pull requests

1 participant