diff --git a/op.c b/op.c index 98ff7557ea02..c881ea91ff90 100644 --- a/op.c +++ b/op.c @@ -16262,9 +16262,7 @@ Perl_subsignature_append_positional(pTHX_ OP *varop, OPCODE defmode, OP *defexpr assert(varop->op_type == OP_ARGELEM); assert((varop->op_private & OPpARGELEM_MASK) == OPpARGELEM_SV); assert(varop->op_targ); - - PADNAME *pn = PadnamelistARRAY(PL_comppad_name)[varop->op_targ]; - assert(PadnamePV(pn)[0] == '$'); + assert(PadnamePV(PadnamelistARRAY(PL_comppad_name)[varop->op_targ])[0] == '$'); /* Now fill in the argix */ cUNOP_AUXx(varop)->op_aux = INT2PTR(UNOP_AUX_item *, argix); @@ -16345,9 +16343,7 @@ Perl_subsignature_append_slurpy(pTHX_ I32 sigil, OP *varop) assert((varop->op_private & OPpARGELEM_MASK) == ((sigil == '@') ? OPpARGELEM_AV : OPpARGELEM_HV)); assert(varop->op_targ); - - PADNAME *pn = PadnamelistARRAY(PL_comppad_name)[varop->op_targ]; - assert(PadnamePV(pn)[0] == sigil); + assert(PadnamePV(PadnamelistARRAY(PL_comppad_name)[varop->op_targ])[0] == sigil); /* Now fill in the argix */ cUNOP_AUXx(varop)->op_aux = INT2PTR(UNOP_AUX_item *, argix);