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

[perl #129029] SIGBUS Perl_sv_peek (dump.c:367)

Thread Previous
Brian Carpenter
August 21, 2016 06:07
[perl #129029] SIGBUS Perl_sv_peek (dump.c:367)
Message ID:
# New Ticket Created by  Brian Carpenter 
# Please include the string:  [perl #129029]
# in the subject line of all future correspondence about this issue. 
# <URL: >

The following script triggers a Bus error (SIGBUS) in Perl v5.25.4 (v5.25.3-305-g8c6b0c7) with the -D. Removing it stifles the crash.

#!perl -D2000002
${qq$\x5F$}=q0 and s gggge

Program received signal SIGBUS, Bus error.
0x00000000007d1e64 in Perl_sv_peek (sv=<optimized out>) at dump.c:367
367         else if (sv == (const SV *)0x55555555 || ((char)SvTYPE(sv)) == 'U') {
(gdb) bt
#0  0x00000000007d1e64 in Perl_sv_peek (sv=<optimized out>) at dump.c:367
#1  0x0000000000bded28 in S_deb_stack_n (stack_base=0x619000009680, stack_min=<optimized out>, stack_max=3, mark_min=<optimized out>, mark_max=108176)
    at deb.c:145
#2  0x0000000000bdf95e in Perl_deb_stack_all () at deb.c:299
#3  0x00000000007f169d in Perl_runops_debug () at dump.c:2220
#4  0x00000000005a0ff7 in S_run_body (oldscope=<optimized out>) at perl.c:2524
#5  perl_run (my_perl=<optimized out>) at perl.c:2447
#6  0x00000000004de68e in main (argc=<optimized out>, argv=<optimized out>, env=<optimized out>) at perlmain.c:123

Thread Previous Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About