diff options
| author | Karl Williamson <khw@cpan.org> | 2020-10-16 06:53:11 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2020-10-16 07:01:00 -0600 |
| commit | c6565d4b08aaa574913fcf883d464fad2859c65a (patch) | |
| tree | 596d674346e653ab5e334b498317a5bce8c0111b | |
| parent | e61025dfb72774d414f04b0107f97b8c4b068cf2 (diff) | |
| download | perl-c6565d4b08aaa574913fcf883d464fad2859c65a.tar.gz | |
Make some flags accessible from /ext
Nothing in the test suite (nor apparently CPAN) had exercised this area
of the code, and so this flaw hadn't been discovered. But new code
about to be commited does.
| -rw-r--r-- | cv.h | 2 | ||||
| -rw-r--r-- | op.h | 2 |
2 files changed, 2 insertions, 2 deletions
@@ -126,7 +126,7 @@ See L<perlguts/Autoloading with XSUBs>. #define CVf_NODEBUG 0x0200 /* no DB::sub indirection for this CV (esp. useful for special XSUBs) */ #define CVf_CVGV_RC 0x0400 /* CvGV is reference counted */ -#ifdef PERL_CORE +#if defined(PERL_CORE) || defined(PERL_EXT) # define CVf_SLABBED 0x0800 /* Holds refcount on op slab */ #endif #define CVf_DYNFILE 0x1000 /* The filename is malloced */ @@ -837,7 +837,7 @@ preprocessing token; the type of C<arg> depends on C<which>. #define RV2CVOPCV_MARK_EARLY 0x00000001 #define RV2CVOPCV_RETURN_NAME_GV 0x00000002 #define RV2CVOPCV_RETURN_STUB 0x00000004 -#ifdef PERL_CORE /* behaviour of this flag is subject to change: */ +#if defined(PERL_CORE) || defined(PERL_EXT) /* behaviour of this flag is subject to change: */ # define RV2CVOPCV_MAYBE_NAME_GV 0x00000008 #endif #define RV2CVOPCV_FLAG_MASK 0x0000000f /* all of the above */ |