diff options
| author | Graham Barr <gbarr@pobox.com> | 1997-11-05 11:22:34 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-08 14:17:10 +0000 |
| commit | 246699ca5e3af04fcf52cf11c1535421dd986e59 (patch) | |
| tree | 6e3d40d548d2d8ffb7c14a6c3558932520740be1 /cv.h | |
| parent | 74c7603757455e9ae40e2976bf9b439d7ba8be55 (diff) | |
| download | perl-246699ca5e3af04fcf52cf11c1535421dd986e59.tar.gz | |
(Retracted by #11223.)
Subject: [PATCH] Re: Problem with Safe.pm and Perl 5.004
Message-Id: <3460FFBA.6DA51F46@ti.com>
p4raw-id: //depot/perl@11212
Diffstat (limited to 'cv.h')
| -rw-r--r-- | cv.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -34,6 +34,7 @@ struct xpvcv { struct perl_thread *xcv_owner; /* current owner thread */ #endif /* USE_THREADS */ cv_flags_t xcv_flags; + HV * xcv_defstash; }; /* @@ -69,6 +70,7 @@ Returns the stash of the CV. #define CvOWNER(sv) ((XPVCV*)SvANY(sv))->xcv_owner #endif /* USE_THREADS */ #define CvFLAGS(sv) ((XPVCV*)SvANY(sv))->xcv_flags +#define CvDEFSTASH(sv) ((XPVCV*)SvANY(sv))->xcv_defstash #define CVf_CLONE 0x0001 /* anon CV uses external lexicals */ #define CVf_CLONED 0x0002 /* a clone of one of those */ |