Skip Menu |
Report information
Id: 132583
Status: new
Priority: 0/
Queue: perl5

Owner: Nobody
Requestors: brian.carpenter [at] gmail.com
Cc:
AdminCc:

Operating System: (no value)
PatchStatus: (no value)
Severity: low
Type: unknown
Perl Version: (no value)
Fixed In: (no value)



From: Brian Carpenter <brian.carpenter [...] gmail.com>
Subject: Assertion failure in perl_yylex (toke.c:6333)
To: perlbug [...] perl.org
Date: Thu, 14 Dec 2017 22:45:13 -0600
Download (untitled) / with headers
text/plain 1.7k
This assertion failure was triggered in Perl v5.27.6-156-g5d4548b73b, compiled with Clang 6.0.0-trunk and -fsanitize=address.

./perl -e 'format=
^
0m}}
.'

perl: toke.c:6333: int Perl_yylex(void): Assertion `((char*)PL_scopestack_name[PL_scopestack_ix-1] == (char*)"lex_format") || strEQ(PL_scopestack_name[PL_scopestack_ix-1], "lex_format")' failed.
Aborted

#0  __GI_raise (sig=sig@entry=6) at ../sysdeps/unix/sysv/linux/raise.c:58
#1  0x00007ffff6cc837a in __GI_abort () at abort.c:89
#2  0x00007ffff6cbeb47 in __assert_fail_base (fmt=<optimized out>, assertion=assertion@entry=0xc555c0 <.str.182> "((char*)PL_scopestack_name[PL_scopestack_ix-1] == (char*)\"lex_format\") || strEQ(PL_scopestack_name[PL_scopestack_ix-1], \"lex_format\")", file=file@entry=0xc4b240 <.str.1> "toke.c",
    line=line@entry=6333, function=function@entry=0xc4d840 <__PRETTY_FUNCTION__.Perl_yylex> "int Perl_yylex(void)") at assert.c:92
#3  0x00007ffff6cbebf2 in __GI___assert_fail (assertion=0xc555c0 <.str.182> "((char*)PL_scopestack_name[PL_scopestack_ix-1] == (char*)\"lex_format\") || strEQ(PL_scopestack_name[PL_scopestack_ix-1], \"lex_format\")", file=0xc4b240 <.str.1> "toke.c", line=6333,
    function=0xc4d840 <__PRETTY_FUNCTION__.Perl_yylex> "int Perl_yylex(void)") at assert.c:101
#4  0x000000000064d2ec in Perl_yylex () at toke.c:6333
#5  0x00000000006a67f4 in Perl_yyparse (gramtype=<optimized out>) at perly.c:340
#6  0x00000000005a3c22 in S_parse_body (env=<optimized out>, xsinit=<optimized out>) at perl.c:2447
#7  0x000000000059ea24 in perl_parse (my_perl=<optimized out>, xsinit=0x5036f0 <xs_init>, argc=2, argv=<optimized out>, env=0x0) at perl.c:1750
#8  0x0000000000503486 in main (argc=0, argv=0x7ffff6cc677f <__GI_raise+159>, env=0x7fffffffe380) at perlmain.c:121


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

For issues related to this RT instance (aka "perlbug"), please contact perlbug-admin at perl.org