develooper Front page | perl.perl5.porters | Postings from September 2016

[perl #129196] Segmentation fault: "evalbytes S"

Thread Previous | Thread Next
From:
Father Chrysostomos via RT
Date:
September 4, 2016 18:20
Subject:
[perl #129196] Segmentation fault: "evalbytes S"
Message ID:
rt-4.0.24-26063-1473013229-1847.129196-15-0@perl.org
On Sun Sep 04 11:06:08 2016, dcollinsn@gmail.com wrote:
> ./miniperl -e 'CORE::evalbytes S'
> Segmentation fault

It doesn’t crash for me.

> (gdb) run
> Starting program: /usr/local/perl-afl/bin/perl -e CORE::evalbytes\ S
> [Thread debugging using libthread_db enabled]
> Using host libthread_db library "/lib/x86_64-linux-
> gnu/libthread_db.so.1".
> bt
> Program received signal SIGSEGV, Segmentation fault.
> 0x00000000004bdce7 in Perl_yylex () at toke.c:7033
> 7033                            || ((PL_opargs[PL_last_lop_op] >>
> OASHIFT)& 7)

PL_last_lop_op is negative, isn’t it?

> 5dc13276b282d472cc1e6c349c18352bd0db89e2 is the first new commit
> commit 5dc13276b282d472cc1e6c349c18352bd0db89e2
> Author: Matthew Horsfall (alh) <wolfsage@gmail.com>
> Date:   Mon Jul 2 22:20:39 2012 -0700
> 
> For #16249 - Overwrite PL_last_lop_op when eval() is called.

If you apply the attached, which changes the line that 5dc13276 added, does the crash go away?

If so, could you provide a patch that adds a test that fails without my patch and passes with it?

-- 

Father Chrysostomos


---
via perlbug:  queue: perl5 status: new
https://rt.perl.org/Ticket/Display.html?id=129196

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About