From: Chip Salzenberg <chip@atlantic.net>
Date: Thu, 19 Dec 1996 04:11:33 +0000 (+1200)
Subject: Make evals' lexicals visible to nested evals
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ff3ff8d1abe1e7138bb7e58aa6f10864e2d07fa7;p=p5sagit%2Fp5-mst-13.2.git

Make evals' lexicals visible to nested evals
---

diff --git a/pp_ctl.c b/pp_ctl.c
index 78e1c99..6018793 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1900,6 +1900,7 @@ int gimme;
     dSP;
     OP *saveop = op;
     HV *newstash;
+    CV *caller;
     AV* comppadlist;
 
     in_eval = 1;
@@ -1916,9 +1917,11 @@ int gimme;
     SAVEI32(min_intro_pending);
     SAVEI32(max_intro_pending);
 
+    caller = compcv;
     SAVESPTR(compcv);
     compcv = (CV*)NEWSV(1104,0);
     sv_upgrade((SV *)compcv, SVt_PVCV);
+    CvOUTSIDE(compcv) = (CV*)SvREFCNT_inc(caller);
 
     comppad = newAV();
     comppad_name = newAV();