From: Chip Salzenberg <chip@atlantic.net>
Date: Thu, 19 Dec 1996 04:11:05 +0000 (+1200)
Subject: Fix core dump bug with anoncode
X-Git-Tag: accepted/trunk/20130322.191538~38041^2~582
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=178c63054ce0b6f5d9bd91ada1261d807e487123;p=platform%2Fupstream%2Fperl.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;