Mailing List Archive: Perl: porters

[perl #54050] Segmentation Fault from ordinary, if unusual, perl code

Index | Next | Previous | View Threaded

perlbug-followup at perl

May 12, 2008, 12:30 PM

Post #1 of 7 (289 views)
Permalink

[perl #54050] Segmentation Fault from ordinary, if unusual, perl code

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

This is a bug report for perl from jettero[at]cpan.org,
generated with the help of perlbug 1.35 running under perl v5.8.8.

-----------------------------------------------------------------

I think it's a little silly to report, but I was encouraged to do so.
Apparently Perl should never segmentation fault from perl code.

%::();// # <-- seems to crash the system

I'm not really the person that figured that out. It seems to be
known. I'm not really surprised that it causes problems,
although segmentation faults do seem a little extreme.

-paul

-----------------------------------------------------------------
---
Flags:
category=core
severity=low
---
Site configuration information for perl v5.8.8:

Configured by Debian Project at Tue Dec 4 09:07:29 UTC 2007.

Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
Platform:
osname=linux, osvers=2.6.15.7, archname=i486-linux-gnu-thread-multi
uname='linux terranova 2.6.15.7 #1 smp thu jul 12 14:27:56 utc 2007 i686 gnulinux '
config_args='-Dusethreads -Duselargefiles -Dccflags=-DDEBIAN -Dcccdlflags=-fPIC -Darchname=i486-linux-gnu -Dprefix=/usr -Dprivlib=/usr/share/perl/5.8 -Darchlib=/usr/lib/perl/5.8 -Dvendorprefix=/usr -Dvendorlib=/usr/share/perl5 -Dvendorarch=/usr/lib/perl5 -Dsiteprefix=/usr/local -Dsitelib=/usr/local/share/perl/5.8.8 -Dsitearch=/usr/local/lib/perl/5.8.8 -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 -Uusesfio -Uusenm -Duseshrplib -Dlibperl=libperl.so.5.8.8 -Dd_dosuid -des'
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=undef
usemymalloc=n, bincompat5005=undef
Compiler:
cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
optimize='-O2',
cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include'
ccversion='', gccversion='4.1.3 20070929 (prerelease) (Ubuntu 4.1.2-16ubuntu2)', 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=-lgdbm -lgdbm_compat -ldb -ldl -lm -lpthread -lc -lcrypt
perllibs=-ldl -lm -lpthread -lc -lcrypt
libc=/lib/libc-2.6.1.so, so=so, useshrplib=true, libperl=libperl.so.5.8.8
gnulibc_version='2.6.1'
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
cccdlflags='-fPIC', lddlflags='-shared -L/usr/local/lib'

Locally applied patches:

---
@INC for perl v5.8.8:
/etc/perl
/usr/local/lib/perl/5.8.8
/usr/local/share/perl/5.8.8
/usr/lib/perl5
/usr/share/perl5
/usr/lib/perl/5.8
/usr/share/perl/5.8
/usr/local/lib/site_perl
.

---
Environment for perl v5.8.8:
HOME=/home/jettero
LANG=C
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:/bin:/usr/bin:/usr/local/bin:/sbin:/usr/sbin:/usr/games/bin:/usr/X11R6/bin:/home/jettero/code/povray/bin:/usr/local/sbin:/usr/games
PERL_BADLANG (unset)
SHELL=/bin/bash

steve at fisharerojo

May 16, 2008, 1:04 PM

Post #2 of 7 (257 views)
Permalink

Re: [perl #54050] Segmentation Fault from ordinary, if unusual, perl code [In reply to]

On Mon, May 12, 2008 at 2:30 PM, via RT jettero @ cpan. org
<perlbug-followup[at]perl.org> wrote:
> # New Ticket Created by jettero[at]cpan.org
> # Please include the string: [perl #54050]
> # in the subject line of all future correspondence about this issue.
> # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=54050 >
>
>
>
> This is a bug report for perl from jettero[at]cpan.org,
> generated with the help of perlbug 1.35 running under perl v5.8.8.
>
>
> -----------------------------------------------------------------
>
> I think it's a little silly to report, but I was encouraged to do so.
> Apparently Perl should never segmentation fault from perl code.
>
> %::();// # <-- seems to crash the system
>
> I'm not really the person that figured that out. It seems to be
> known. I'm not really surprised that it causes problems,
> although segmentation faults do seem a little extreme.
>
> -paul
>

Actually, thanks for reporting the segfault. You should actually
report your the segfaults you run into. Otherwise, we have the fiasco
of a thread elsewhere with describing favorite way to cause Perl to
core dump.

To your problem, though, I cannot even get the code above to parse.
Do you have a larger example?

Steve Peters
steve[at]fisharerojo.org

demerphq at gmail

May 16, 2008, 1:23 PM

Post #3 of 7 (257 views)
Permalink

Re: [perl #54050] Segmentation Fault from ordinary, if unusual, perl code [In reply to]

2008/5/16 Steve Peters <steve[at]fisharerojo.org>:
> On Mon, May 12, 2008 at 2:30 PM, via RT jettero @ cpan. org
> <perlbug-followup[at]perl.org> wrote:
>> # New Ticket Created by jettero[at]cpan.org
>> # Please include the string: [perl #54050]
>> # in the subject line of all future correspondence about this issue.
>> # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=54050 >
>>
>>
>>
>> This is a bug report for perl from jettero[at]cpan.org,
>> generated with the help of perlbug 1.35 running under perl v5.8.8.
>>
>>
>> -----------------------------------------------------------------
>>
>> I think it's a little silly to report, but I was encouraged to do so.
>> Apparently Perl should never segmentation fault from perl code.
>>
>> %::();// # <-- seems to crash the system
>>
>> I'm not really the person that figured that out. It seems to be
>> known. I'm not really surprised that it causes problems,
>> although segmentation faults do seem a little extreme.
>>
>> -paul
>>
>
> Actually, thanks for reporting the segfault. You should actually
> report your the segfaults you run into. Otherwise, we have the fiasco
> of a thread elsewhere with describing favorite way to cause Perl to
> core dump.
>
> To your problem, though, I cannot even get the code above to parse.
> Do you have a larger example?

At one point someone was randomly generating code snippets and was
able to come up with a surprising number that would segv. Maybe we
should try to do more of that and flush out things like this.

Yves

--
perl -Mre=debug -e "/just|another|perl|hacker/"

nick at ccl4

May 16, 2008, 1:28 PM

Post #4 of 7 (257 views)
Permalink

Re: [perl #54050] Segmentation Fault from ordinary, if unusual, perl code [In reply to]

On Fri, May 16, 2008 at 10:23:43PM +0200, demerphq wrote:

> At one point someone was randomly generating code snippets and was
> able to come up with a surprising number that would segv. Maybe we
> should try to do more of that and flush out things like this.

Such as revisiting this?

http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2001-05/msg01959.html

Nicholas Clark

demerphq at gmail

May 16, 2008, 1:32 PM

Post #5 of 7 (259 views)
Permalink

Re: [perl #54050] Segmentation Fault from ordinary, if unusual, perl code [In reply to]

2008/5/16 Nicholas Clark <nick[at]ccl4.org>:
> On Fri, May 16, 2008 at 10:23:43PM +0200, demerphq wrote:
>
>> At one point someone was randomly generating code snippets and was
>> able to come up with a surprising number that would segv. Maybe we
>> should try to do more of that and flush out things like this.
>
> Such as revisiting this?
>
> http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2001-05/msg01959.html
>

Yep. Thats the one. Wow. Quick on the draw aintchya. :-)

cheers,
yves

--
perl -Mre=debug -e "/just|another|perl|hacker/"

p5p at perl

May 17, 2008, 5:17 AM

Post #6 of 7 (248 views)
Permalink

Re: [perl #54050] Segmentation Fault from ordinary, if unusual, perl code [In reply to]

Quoting Steve Peters <steve[at]fisharerojo.org>:

>> %::();// # <-- seems to crash the system

> To your problem, though, I cannot even get the code above to parse.
> Do you have a larger example?

That's because the example is wrong.

It should be: %::=();//;

It got reported as:

[perl #54044] perl -wle '%::=();//' crash
http://www.nntp.perl.org/group/perl.perl5.porters/2008/05/msg136747.html #
perl -wle '%::=();//' crash (which was CC'ed to p5p - so the reply's
following on it aren't visible on RT)

[perl #54050] Segmentation Fault from ordinary, if unusual, perl code
[perl #54052] Re: perl -wle '%::=();//' crash

Kind regards,

Bram

rurban at x-ray

May 18, 2008, 1:53 AM

Post #7 of 7 (242 views)
Permalink

Re: [perl #54050] Segmentation Fault from ordinary, if unusual, perl code [In reply to]

jettero[at]cpan.org (via RT) schrieb:
> # New Ticket Created by jettero[at]cpan.org
> # Please include the string: [perl #54050]
> # in the subject line of all future correspondence about this issue.
> # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=54050 >
>
>
>
> This is a bug report for perl from jettero[at]cpan.org,
> generated with the help of perlbug 1.35 running under perl v5.8.8.
>
>
> -----------------------------------------------------------------
>
> I think it's a little silly to report, but I was encouraged to do so.
> Apparently Perl should never segmentation fault from perl code.
>
> %::();// # <-- seems to crash the system
>
> I'm not really the person that figured that out. It seems to be
> known. I'm not really surprised that it causes problems,
> although segmentation faults do seem a little extreme.

That's a simple copy&paste error and a duplicate from
[perl #54044] perl -wle '%::=();//' crash,
which was reported by ton.iguana.be and discussed at #perl last week.

Please close this.

> -paul
>
> -----------------------------------------------------------------
> ---
> Flags:
> category=core
> severity=low
> ---
> Site configuration information for perl v5.8.8:
>
> Configured by Debian Project at Tue Dec 4 09:07:29 UTC 2007.
>
> Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
> Platform:
> osname=linux, osvers=2.6.15.7, archname=i486-linux-gnu-thread-multi
> uname='linux terranova 2.6.15.7 #1 smp thu jul 12 14:27:56 utc 2007 i686 gnulinux '
> config_args='-Dusethreads -Duselargefiles -Dccflags=-DDEBIAN -Dcccdlflags=-fPIC -Darchname=i486-linux-gnu -Dprefix=/usr -Dprivlib=/usr/share/perl/5.8 -Darchlib=/usr/lib/perl/5.8 -Dvendorprefix=/usr -Dvendorlib=/usr/share/perl5 -Dvendorarch=/usr/lib/perl5 -Dsiteprefix=/usr/local -Dsitelib=/usr/local/share/perl/5.8.8 -Dsitearch=/usr/local/lib/perl/5.8.8 -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 -Uusesfio -Uusenm -Duseshrplib -Dlibperl=libperl.so.5.8.8 -Dd_dosuid -des'
> 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=undef
> usemymalloc=n, bincompat5005=undef
> Compiler:
> cc='cc', ccflags ='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
> optimize='-O2',
> cppflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBIAN -fno-strict-aliasing -pipe -I/usr/local/include'
> ccversion='', gccversion='4.1.3 20070929 (prerelease) (Ubuntu 4.1.2-16ubuntu2)', 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=-lgdbm -lgdbm_compat -ldb -ldl -lm -lpthread -lc -lcrypt
> perllibs=-ldl -lm -lpthread -lc -lcrypt
> libc=/lib/libc-2.6.1.so, so=so, useshrplib=true, libperl=libperl.so.5.8.8
> gnulibc_version='2.6.1'
> Dynamic Linking:
> dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
> cccdlflags='-fPIC', lddlflags='-shared -L/usr/local/lib'
>
> Locally applied patches:
>
>
> ---
> @INC for perl v5.8.8:
> /etc/perl
> /usr/local/lib/perl/5.8.8
> /usr/local/share/perl/5.8.8
> /usr/lib/perl5
> /usr/share/perl5
> /usr/lib/perl/5.8
> /usr/share/perl/5.8
> /usr/local/lib/site_perl
> .
>
> ---
> Environment for perl v5.8.8:
> HOME=/home/jettero
> LANG=C
> 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:/bin:/usr/bin:/usr/local/bin:/sbin:/usr/sbin:/usr/games/bin:/usr/X11R6/bin:/home/jettero/code/povray/bin:/usr/local/sbin:/usr/games
> PERL_BADLANG (unset)
> SHELL=/bin/bash
>
>

--
Reini Urban
http://phpwiki.org/ http://murbreak.at/

Index | Next | Previous | View Threaded

Interested in having your list archived? Contact lists@gossamer-threads.com