From: Chip Salzenberg Date: Thu, 19 Dec 1996 04:11:05 +0000 (+1200) Subject: Fix core dump bug with anoncode X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=178c63054ce0b6f5d9bd91ada1261d807e487123;p=p5sagit%2Fp5-mst-13.2.git Fix core dump bug with anoncode --- diff --git a/op.c b/op.c index a7460b1..56624e3 100644 --- a/op.c +++ b/op.c @@ -3384,8 +3384,16 @@ OP * ck_anoncode(op) OP *op; { - PADOFFSET ix = pad_alloc(op->op_type, SVs_PADMY); - av_store(comppad_name, ix, newSVpv("&", 1)); + PADOFFSET ix; + SV* name; + + name = NEWSV(1106,0); + sv_upgrade(name, SVt_PVNV); + sv_setpvn(name, "&", 1); + SvIVX(name) = -1; + SvNVX(name) = 1; + ix = pad_alloc(op->op_type, SVs_PADMY); + av_store(comppad_name, ix, name); av_store(comppad, ix, cSVOP->op_sv); SvPADMY_on(cSVOP->op_sv); cSVOP->op_sv = Nullsv;