[perl #76870] sigsegv in 5.10.1

# New Ticket Created by  jettero@cpan.org 
# Please include the string:  [perl #76870]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=76870 >



This is a bug report for perl from jettero@cpan.org,
generated with the help of perlbug 1.39 running under perl 5.10.1.


-----------------------------------------------------------------
This bug is probably known and fixed.  I appologize in advance
that I don't really know where to check for that.  I did flip
through some git commits and perl deltas trying to decide if the
bug was really known or incidentally fixed while acheiving other
goals.  In any case, it doesn't apply to more modern perls, but
5.10.x seems to be deployed everywhere so it is perhaps worth
pointing out.

#!/usr/bin/perl

eval { ("3"."x"x25) =~ m/(\d+)(??{ _noexist($^N) })/; 1 }

    # the sagfault will occur in whatever happens to be the next op

    or warn $@; # SIGSEGV in Perl_pp_warn() or comment line for
    ;print "here\n"; # SIGSEGV in Perl_do_print() instead


# 5.6.1  seems unaffected
# 5.8.1  seems to work but complains: panic: pad_free curpad. after "here"
# 5.10.1 where I noticed this (ubuntu 10.04)
# 5.12   seems fine
# 5.13   also fine


[Please do not change anything below this line]
-----------------------------------------------------------------
---
Flags:
    category=core
    severity=low
---
Site configuration information for perl 5.10.1:

Configured by Debian Project at Fri Apr 23 08:18:41 UTC 2010.

Summary of my perl5 (revision 5 version 10 subversion 1) configuration:
   
  Platform:
    osname=linux, osvers=2.6.24-27-server, archname=x86_64-linux-gnu-thread-multi
    uname='linux crested 2.6.24-27-server #1 smp fri mar 12 01:23:09 utc 2010 x86_64 gnulinux '
    config_args='-Dusethreads -Duselargefiles -Dccflags=-DDEBIAN -Dcccdlflags=-fPIC -Darchname=x86_64-linux-gnu -Dprefix=/usr -Dprivlib=/usr/share/perl/5.10 -Darchlib=/usr/lib/perl/5.10 -Dvendorprefix=/usr -Dvendorlib=/usr/share/perl5 -Dvendorarch=/usr/lib/perl5 -Dsiteprefix=/usr/local -Dsitelib=/usr/local/share/perl/5.10.1 -Dsitearch=/usr/local/lib/perl/5.10.1 -Dman1dir=/usr/share/man/man1 -Dman3dir=/usr/share/man/man3 -Dsiteman1dir=/usr/local/man/man1 -Dsiteman3dir=/usr/local/man/man3 -Dman1ext=1 -Dman3ext=3perl -Dpager=/usr/bin/sensible-pager -Uafs -Ud_csh -Ud_ualarm -Uusesfio -Uusenm -DDEBUGGING=-g -Doptimize=-O2 -Duseshrplib -Dlibperl=libperl.so.5.10.1 -Dd_dosuid -des'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=define, usemultiplicity=define
    useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
    use64bitint=define, use64bitall=define, uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DDEBIAN -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
    optimize='-O2 -g',
    cppflags='-D_REENTRANT -D_GNU_SOURCE -DDEBIAN -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include'
    ccversion='', gccversion='4.4.3', gccosandvers=''
    intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
    ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=8, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -fstack-protector -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib /lib64 /usr/lib64
    libs=-lgdbm -lgdbm_compat -ldb -ldl -lm -lpthread -lc -lcrypt
    perllibs=-ldl -lm -lpthread -lc -lcrypt
    libc=/lib/libc-2.11.1.so, so=so, useshrplib=true, libperl=libperl.so.5.10.1
    gnulibc_version='2.11.1'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
    cccdlflags='-fPIC', lddlflags='-shared -O2 -g -L/usr/local/lib -fstack-protector'

Locally applied patches:
    

---
@INC for perl 5.10.1:
    /etc/perl
    /usr/local/lib/perl/5.10.1
    /usr/local/share/perl/5.10.1
    /usr/lib/perl5
    /usr/share/perl5
    /usr/lib/perl/5.10
    /usr/share/perl/5.10
    /usr/local/lib/site_perl
    .

---
Environment for perl 5.10.1:
    HOME=/home/jettero
    LANG=en_US.utf8
    LANGUAGE (unset)
    LD_LIBRARY_PATH=
    LOGDIR (unset)
    PATH=/home/jettero/bin:/home/jettero/sbin:/home/jettero/code/povray/bin:/home/jettero/.jbash/jbin:/home/jettero/bin:/home/jettero/sbin:/usr/local/bin:/bin:/usr/bin:/sbin:/usr/sbin:/usr/games/bin:/usr/X11R6/bin:/home/jettero/code/povray/bin:/usr/local/sbin:/usr/games:/home/jettero/code/apps/bakmud:/home/jettero/code/apps/bdj:/home/jettero/code/apps/convert_videos:/home/jettero/code/apps/ffiec:/home/jettero/code/apps/google.api:/home/jettero/code/apps/jump:/home/jettero/code/apps/mrsh:/home/jettero/code/apps/traffic-view:/home/jettero/code/apps/videodump-pl
    PERL_AUTOINSTALL=--defaultdeps
    PERL_BADLANG (unset)
    SHELL=/bin/bash

• [perl #76870] sigsegv in 5.10.1 by jettero @ cpan . org
• Re: [perl #76870] sigsegv in 5.10.1 by Alex Vandiver
• Re: [perl #76870] sigsegv in 5.10.1 by Dave Mitchell