X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/a0d0e21ea6ea90a22318550944fe6cb09ae10cda..b355b4e0798f66a89bbfedc23cbec69c1dff3d33:/cv.h

diff --git a/cv.h b/cv.h
index 9d9c05f..dbeb6d6 100644
--- a/cv.h
+++ b/cv.h
@@ -25,8 +25,10 @@ struct xpvcv {
     GV *	xcv_filegv;
     long	xcv_depth;		/* >= 2 indicates recursive call */
     AV *	xcv_padlist;
+    CV *	xcv_outside;
     bool	xcv_oldstyle;
 };
+
 #define Nullcv Null(CV*)
 #define CvSTASH(sv)	((XPVCV*)SvANY(sv))->xcv_stash
 #define CvSTART(sv)	((XPVCV*)SvANY(sv))->xcv_start
@@ -37,5 +39,6 @@ struct xpvcv {
 #define CvFILEGV(sv)	((XPVCV*)SvANY(sv))->xcv_filegv
 #define CvDEPTH(sv)	((XPVCV*)SvANY(sv))->xcv_depth
 #define CvPADLIST(sv)	((XPVCV*)SvANY(sv))->xcv_padlist
+#define CvOUTSIDE(sv)	((XPVCV*)SvANY(sv))->xcv_outside
 #define CvOLDSTYLE(sv)	((XPVCV*)SvANY(sv))->xcv_oldstyle