Have newATTRSUB() call class_wrap_method_body() if CVf_IsMETHOD

1 files changed, 2 insertions, 0 deletions

diff --git a/op.c b/op.c
index dec2247f96..1130dd9afa 100644
--- a/op.c
+++ b/op.c
@@ -10638,6 +10638,8 @@ Perl_newATTRSUB_x(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs,
 
     if (block) {
         assert(PL_parser);
+        if (CvIsMETHOD(PL_compcv))
+            block = class_wrap_method_body(block);
         /* This makes sub {}; work as expected.  */
         if (block->op_type == OP_STUB) {
             const line_t l = PL_parser->copline;