This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 9f021be) | patch
[perl #123848] Allow OPpTARGET_MY on qr
authorFather Chrysostomos <sprout@cpan.org>
Sun, 1 Mar 2015 22:01:27 +0000 (14:01 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 1 Mar 2015 22:01:27 +0000 (14:01 -0800)
commit57db463f603fcd67bf53a35aa482bb24aa2c6950
treea542917cc078a209238c44a0ddc736f468649672tree | snapshot
parent9f021be64d99e25c9277e6c3e36d224ca74edaedcommit | diff
[perl #123848] Allow OPpTARGET_MY on qr

// in the scope of lexical $_ gets the OPpTARGET_MY flag set.  If it
is used as an operand to smartmatch, it gets converted to a qr op.
There is no need to turn off the flag, since it is harmless at run
time.  But we need to allow the flag on this op type to avoid asser-
tion failures when it is freed.
lib/B/Op_private.pm diff | blob | blame | history
opcode.h diff | blob | blame | history
regen/op_private diff | blob | blame | history
t/comp/parser.t diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.