[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.

1 files changed, 1 insertions, 1 deletions

diff --git a/regen/op_private b/regen/op_private
index 5a95555099..06ebca6f76 100644
--- a/regen/op_private
+++ b/regen/op_private
@@ -381,7 +381,7 @@ addbits($_, 4 => qw(OPpTARGET_MY TARGMY))
     for ops_with_flag('T'),
     # This flag is also used to indicate matches against implicit $_,
     # where $_ is lexical; e.g. my $_; ....; /foo/
-    qw(match subst pushre trans transr);
+    qw(match subst pushre qr trans transr);
 ;