perl -Dx segfaults on regular expressions

mhx@r2d2 ~ $ gdb bleadperl-debug 
GNU gdb 6.0
Copyright 2003 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB.  Type "show warranty" for details.
This GDB was configured as "i686-pc-linux-gnu"...Using host libthread_db library "/lib/libthread_db.so.1".

(gdb) r -Dx -e '//'
Starting program: /home/mhx/apps/bin/bleadperl-debug -Dx -e '//'
[Thread debugging using libthread_db enabled]
[New Thread 16384 (LWP 17295)]
{
1   TYPE = leave  ===> DONE
    TARG = 1
    FLAGS = (VOID,KIDS,PARENS)
    PRIVATE = (REFCOUNTED)
    REFCNT = 1

Program received signal SIGSEGV, Segmentation fault.
[Switching to Thread 16384 (LWP 17295)]
0x080c498f in sequence (my_perl=0x81b0eb8, o=0x81cccf0) at dump.c:480
480                 for (l = cPMOPo->op_pmreplstart; l->op_type == OP_NULL; l = l->op_next)
(gdb) p ((PMOP*)o)->op_pmreplstart 
$1 = (OP *) 0x0

mhx@r2d2 ~ $ bleadperl-debug -V
Summary of my perl5 (revision 5 version 9 subversion 1 patch 22397) configuration:
  Platform:
    osname=linux, osvers=2.4.22-gentoo-r4, archname=i686-linux-thread-multi
    uname='linux r2d2 2.4.22-gentoo-r4 #1 thu jan 29 20:01:30 met 2004 i686 intel(r) pentium(r) iii mobile cpu 1000mhz genuineintel gnulinux '
    config_args='-des -Dusedevel -Dusethreads -Dnoextensions=Encode -Dprefix=/home/mhx/perl/blead-debug -Doptimize=-g -Dcc=gcc-3.4'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=define useithreads=define usemultiplicity=define
    useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='gcc-3.4', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING -fno-strict-aliasing -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
    optimize='-g',
    cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING -fno-strict-aliasing'
    ccversion='', gccversion='3.4.0 20031224 (experimental)', 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='gcc-3.4', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lnsl -lndbm -lgdbm -ldb -ldl -lm -lcrypt -lutil -lpthread -lc
    perllibs=-lnsl -ldl -lm -lcrypt -lutil -lpthread -lc
    libc=/lib/libc-2.3.2.so, so=so, useshrplib=false, libperl=libperl.a
    gnulibc_version='2.3.2'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
    cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib'


Characteristics of this binary (from libperl): 
  Compile-time options: DEBUGGING MULTIPLICITY USE_ITHREADS USE_LARGE_FILES PERL_IMPLICIT_CONTEXT
  Locally applied patches:
        DEVEL21538
  Built under linux
  Compiled at Feb 27 2004 18:51:59
  @INC:
    /home/mhx/perl/blead-debug/lib/5.9.1/i686-linux-thread-multi
    /home/mhx/perl/blead-debug/lib/5.9.1
    /home/mhx/perl/blead-debug/lib/site_perl/5.9.1/i686-linux-thread-multi
    /home/mhx/perl/blead-debug/lib/site_perl/5.9.1
    /home/mhx/perl/blead-debug/lib/site_perl
    .

-- 
Sentences long extremely and notation Polish reverse in writing about
wrong is what?
            -- Jarkko Hietaniemi

• perl -Dx segfaults on regular expressions by Marcus Holland-Moritz
• Re: perl -Dx segfaults on regular expressions by Marcus Holland-Moritz