regular expression segfault

[p5pRT]

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

Searchable as RT8718$

[p5pRT]

From [email protected]

Created by [email protected]

using regular expression on more than 500k couses a segfault with perl.

I tryed with 5.005_03 5.6 5.6.1, and the behavion is the same.
The regular expression was complicated. Why am i sure that the size coused it?

The code was similar to this (the regexp was complicated)​:
$regularexpression = '(([\w\s]+)+([ \d]+ : [\w ]+\n)+)+';
if ($data =~ /$regularexpression/smog){
  do_something;
}

with the same data (smaller than 500k (not exactly)) perl recognised my data
and done "do_something", but after putting to the end of data more data
(example from the beginning of the date (with the same structure)), perl
segfaults.

Perl Info

Flags:
    category=core
    severity=medium

Site configuration information for perl v5.6.1:

Configured by bod at Fri Jan 11 04:14:18 EST 2002.

Summary of my perl5 (revision 5.0 version 6 subversion 1) configuration:
  Platform:
    osname=linux, osvers=2.4.13, archname=i386-linux
    uname='linux duende 2.4.13 #1 wed oct 31 19:18:07 est 2001 i686 unknown '
    config_args='-Dccflags=-DDEBIAN -Dcccdlflags=-fPIC -Darchname=i386-linux -Dprefix=/usr -Dprivlib=/usr/share/perl/5.6.1 -Darchlib=/usr/lib/perl/5.6.1 -Dvendorprefix=/usr -Dvendorlib=/usr/share/perl5 -Dvendorarch=/usr/lib/perl5 -Dsiteprefix=/usr/local -Dsitelib=/usr/local/share/perl/5.6.1 -Dsitearch=/usr/local/lib/perl/5.6.1 -Dman1dir=/usr/share/man/man1 -Dman3dir=/usr/share/man/man3 -Dman1ext=1 -Dman3ext=3perl -Dpager=/usr/bin/sensible-pager -Uafs -Ud_csh -Uusesfio -Duseshrplib -Dlibperl=libperl.so.5.6.1 -Dd_dosuid -des'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
    useperlio=undef d_sfio=undef uselargefiles=define usesocks=undef
    use64bitint=undef use64bitall=undef uselongdouble=undef
  Compiler:
    cc='cc', ccflags ='-DDEBIAN -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
    optimize='-O2',
    cppflags='-DDEBIAN -fno-strict-aliasing -I/usr/local/include'
    ccversion='', gccversion='2.95.4  (Debian prerelease)', 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, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -L/usr/local/lib'
    libpth=/usr/local/lib /lib /usr/lib
    libs=-lgdbm -ldb -ldl -lm -lc -lcrypt
    perllibs=-ldl -lm -lc -lcrypt
    libc=/lib/libc-2.2.4.so, so=so, useshrplib=true, libperl=libperl.so.5.6.1
  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.6.1:
    /usr/local/lib/perl/5.6.1
    /usr/local/share/perl/5.6.1
    /usr/lib/perl5
    /usr/share/perl5
    /usr/lib/perl/5.6.1
    /usr/share/perl/5.6.1
    /usr/local/lib/site_perl
    .


Environment for perl v5.6.1:
    HOME=/home/gergo
    LANG=C
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=/usr/local/bin:/usr/bin:/bin:/usr/bin/X11:/usr/games:/home/gergo/bin
    PERL_BADLANG (unset)
    SHELL=/bin/bash

[p5pRT]

From @smpeters

On Wed Feb 27 20​:30​:38 2002, gergo@​www.kapu.hu wrote​:

This is a bug report for perl from gergo@​kapu.hu,
generated with the help of perlbug 1.33 running under perl v5.6.1.

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

using regular expression on more than 500k couses a segfault with
perl.

I tryed with 5.005_03 5.6 5.6.1, and the behavion is the same.
The regular expression was complicated. Why am i sure that the size
coused it?

The code was similar to this (the regexp was complicated)​:
$regularexpression = '(([\w\s]+)+([ \d]+ : [\w ]+\n)+)+';
if ($data =~ /$regularexpression/smog){
do_something;
}

with the same data (smaller than 500k (not exactly)) perl recognised
my data
and done "do_something", but after putting to the end of data more
data
(example from the beginning of the date (with the same structure)),
perl
segfaults.

Without any sample for what is contained in $data above, it is impossible to replicate this
bug. My guess, however, based on your description, this bug is likely to have been resolved
in the development version of Perl.

[p5pRT]

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