diff options
author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2023-03-05 12:40:19 +0000 |
---|---|---|
committer | Paul Evans <leonerd@leonerd.org.uk> | 2023-03-06 10:41:20 +0000 |
commit | 75ea41ae51200ab26d84c418f08859a784a71b85 (patch) | |
tree | 498308616b1680531c1c5020a3492160a368d626 /perly.y | |
parent | a287df13cf577b9af034665350e89ba94eb55d77 (diff) | |
download | perl-75ea41ae51200ab26d84c418f08859a784a71b85.tar.gz |
Have newATTRSUB() call class_wrap_method_body() if CVf_IsMETHOD
Diffstat (limited to 'perly.y')
-rw-r--r-- | perly.y | 5 |
1 files changed, 0 insertions, 5 deletions
@@ -394,9 +394,6 @@ barestmt: PLUGSTMT OP *body = $optsigsubbody; SvREFCNT_inc_simple_void(PL_compcv); - if($sigsub_or_method_named == KW_METHOD_named) { - body = class_wrap_method_body(body); - } $subname->op_type == OP_CONST ? newATTRSUB($startsub, $subname, NULL, $subattrlist, body) : newMYSUB( $startsub, $subname, NULL, $subattrlist, body) @@ -425,7 +422,6 @@ barestmt: PLUGSTMT switch($PHASER) { case KEY_ADJUST: - body = class_wrap_method_body(body); cv = newATTRSUB($startsub, NULL, NULL, NULL, body); class_add_ADJUST(PL_curstash, cv); break; @@ -1347,7 +1343,6 @@ anonymous OP *body = $sigsubbody; SvREFCNT_inc_simple_void(PL_compcv); - body = class_wrap_method_body(body); $$ = newANONATTRSUB($startanonsub, NULL, $subattrlist, body); } ; |