type == OP_RV2AV ||
type == OP_RV2HV) { /* XXX does this let anything illegal in? */
if (cUNOPo->op_first->op_type != OP_GV) { /* MJD 20011224 */
- yyerror(form("Can't declare %s in my", OP_DESC(o)));
+ yyerror(Perl_form(aTHX_ "Can't declare %s in my", OP_DESC(o)));
}
if (attrs) {
GV *gv = cGVOPx_gv(cUNOPo->op_first);
OP *newop = newGVOP(OP_GV, 0,
gv_fetchpv(SvPVx(((SVOP*)kid)->op_sv, n_a), TRUE,
SVt_PVIO) );
+ if (kid == cLISTOPo->op_last)
+ cLISTOPo->op_last = newop;
op_free(kid);
kid = newop;
}