diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2002-11-24 22:19:06 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-12-02 00:58:54 +0000 |
| commit | a3985cdcc04b13974afc5f4635645003847806e4 (patch) | |
| tree | 414f284613a099a7fc5dde52837c3e0f3601fc59 /cv.h | |
| parent | 9cfe5470b44e33f00045a3b9c3128c6ade6e813f (diff) | |
| download | perl-a3985cdcc04b13974afc5f4635645003847806e4.tar.gz | |
allow evals to see the full lexical scope
Message-ID: <20021124221906.A25386@fdgroup.com>
p4raw-id: //depot/perl@18220
Diffstat (limited to 'cv.h')
| -rw-r--r-- | cv.h | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -30,6 +30,9 @@ struct xpvcv { PADLIST * 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 */ }; /* @@ -65,6 +68,7 @@ Returns the stash of the CV. #define CvPADLIST(sv) ((XPVCV*)SvANY(sv))->xcv_padlist #define CvOUTSIDE(sv) ((XPVCV*)SvANY(sv))->xcv_outside #define CvFLAGS(sv) ((XPVCV*)SvANY(sv))->xcv_flags +#define CvOUTSIDE_SEQ(sv) ((XPVCV*)SvANY(sv))->xcv_outside_seq #define CVf_CLONE 0x0001 /* anon CV uses external lexicals */ #define CVf_CLONED 0x0002 /* a clone of one of those */ |