[perl #21441] Segfault with typoed code

# New Ticket Created by  skarkkai@woods.iki.fi 
# Please include the string:  [perl #21441]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=21441 >



This is a bug report for perl from skarkkai@woods.iki.fi,
generated with the help of perlbug 1.34 running under perl v5.8.0.


-----------------------------------------------------------------
[Please enter your report here]

Running the program below creates a segfault on this computer with both the
perl 5.8.0 described below, and Redhat 7.3's default perl 5.6.1. Changing
length of strings or other changes like that makes the segfault not happen
on this box.


sub foo ($) {
	sub ($self) = @_;

	if ($self->a) {
		$self->b("ddddddddddddddddd $self ddddddddddddddddddddddddddddddd");
	}
}


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

Configured by alankila at Thu Aug 22 14:13:36 EEST 2002.

Summary of my perl5 (revision 5.0 version 8 subversion 0) configuration:
  Platform:
    osname=linux, osvers=2.4.18, archname=i686-linux-thread-multi-ld
    uname='linux korppi.elma.fi 2.4.18 #1 smp mon may 20 00:01:31 eest 2002 i686 unknown '
    config_args=''
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=define use5005threads=undef useithreads=define usemultiplicity=define
    useperlio=define d_sfio=undef uselargefiles=define usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=define
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm',
    optimize='-O2',
    cppflags='-D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -I/usr/local/include -I/usr/include/gdbm'
    ccversion='', gccversion='2.96 20000731 (Red Hat Linux 7.1 2.96-85)', 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='long double', nvsize=12, 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 -lpthread -lc -lcrypt -lutil
    perllibs=-lnsl -ldl -lm -lpthread -lc -lcrypt -lutil
    libc=/lib/libc-2.2.4.so, so=so, useshrplib=false, libperl=libperl.a
    gnulibc_version='2.2.4'
  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 v5.8.0:
    /opt/perl5/5.8.0-thread/lib/5.8.0/i686-linux-thread-multi-ld
    /opt/perl5/5.8.0-thread/lib/5.8.0
    /opt/perl5/5.8.0-thread/lib/site_perl/5.8.0/i686-linux-thread-multi-ld
    /opt/perl5/5.8.0-thread/lib/site_perl/5.8.0
    /opt/perl5/5.8.0-thread/lib/site_perl
    .

---
Environment for perl v5.8.0:
    HOME=/home/karkksa
    LANG=en_US
    LANGUAGE (unset)
    LC_ADDRESS=fi_FI.ISO8859-1
    LC_COLLATE=en_US.ISO8859-1
    LC_CTYPE=fi_FI.ISO8859-1
    LC_IDENTIFICATION=fi_FI.ISO8859-1
    LC_MEASUREMENT=fi_FI.ISO8859-1
    LC_MESSAGES=en_US.ISO8859-1
    LC_MONETARY=fi_FI.ISO8859-1
    LC_NAME=fi_FI.ISO8859-1
    LC_NUMERIC=fi_FI.ISO8859-1
    LC_PAPER=fi_FI.ISO8859-1
    LC_TELEPHONE=fi_FI.ISO8859-1
    LC_TIME=en_US.ISO8859-1
    LD_LIBRARY_PATH=:/home/util/db2prod/sqllib/lib
    LOGDIR (unset)
    PATH=/opt/perl5/5.8.0-thread/bin:/opt/perl5/5.6.1/bin:/opt/perl5/5.6.1/bin:/bin:/usr/bin:/usr/bin/X11:/usr/local/bin:/usr/bin:/usr/X11R6/bin:/home/karkksa/bin:/usr/local/sbin:/usr/sbin:/sbin:/home/karkksa/bin:/usr/local/sbin:/usr/sbin:/sbin:/home/util/db2prod/sqllib/bin:/home/util/db2prod/sqllib/adm:/home/util/db2prod/sqllib/misc:/home/karkksa/bin:/usr/local/sbin:/usr/sbin:/sbin
    PERL_BADLANG (unset)
    SHELL=/bin/bash

• [perl #21441] Segfault with typoed code by skarkkai@woods.iki.fi
• Re: [perl #21441] Segfault with typoed code by Dave Mitchell