develooper Front page | perl.perl5.porters | Postings from February 2015

[perl #123848] op_private assertion on OP_QR via smartmatch

From:
Hugo van der Sanden
Date:
February 16, 2015 15:37
Subject:
[perl #123848] op_private assertion on OP_QR via smartmatch
Message ID:
rt-4.0.18-26690-1424101047-1228.123848-75-0@perl.org
# New Ticket Created by  Hugo van der Sanden 
# Please include the string:  [perl #123848]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=123848 >


AFL (<http://lcamtuf.coredump.cx/afl/>) finds:

% ./miniperl -e 'my $_; m// ~~ 0'
Use of my $_ is experimental at -e line 1.
Smartmatch is experimental at -e line 1.
miniperl: op.c:721: Perl_op_free: Assertion `!(o->op_private & ~PL_op_private_valid[type])' failed.
Aborted (core dumped)
% 

Perl_ck_match sets OPpTARGET_MY while it's still an OP_MATCH, but Perl_ck_smartmatch then does an inplace CHANGE_TYPE to OP_QR.

Hugo




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