allow evals to see the full lexical scope

Message-ID: <20021124221906.A25386@fdgroup.com>

p4raw-id: //depot/perl@18220

1 files changed, 3 insertions, 1 deletions

diff --git a/sv.h b/sv.h
index a77a193585..393f88f30e 100644
--- a/sv.h
+++ b/sv.h
@@ -318,7 +318,9 @@ struct xpvfm {
     AV *	xcv_padlist;
     CV *	xcv_outside;
     cv_flags_t	xcv_flags;
-
+    U32		xcv_outside_seq; /* the COP sequence (at the point of our
+				  * compilation) in the lexically enclosing
+				  * sub */
     IV		xfm_lines;
 };