From 178c63054ce0b6f5d9bd91ada1261d807e487123 Mon Sep 17 00:00:00 2001
From: Chip Salzenberg <chip@atlantic.net>
Date: Thu, 19 Dec 1996 16:11:05 +1200
Subject: [PATCH] Fix core dump bug with anoncode

---
 op.c | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

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;
-- 
2.7.4