diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-06-20 14:23:02 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-06-20 15:54:05 -0700 |
| commit | a0d2bbd5c47035a4f7369e4fddd46b502764d86e (patch) | |
| tree | 175a61f41be9b43ee8d21ada2d05a4748cbf717a /cv.h | |
| parent | 60d91a71fad08b06816b91400592863df5f10d47 (diff) | |
| download | perl-a0d2bbd5c47035a4f7369e4fddd46b502764d86e.tar.gz | |
[perl #89544] Non-eval closures don’t need CvOUTSIDE
A closure doesn’t need an outside pointer at run time, unless it has a
string eval in it. CvOUTSIDE is only used at compilation time to look
up variables by name.
Since CvOUTSIDE is reference-counted, a closure can unnecessarily hang
on to variables it is not using (see the test in the diff). So stop
setting it when cloning a closure, unless it is needed for eval.
Diffstat (limited to 'cv.h')
| -rw-r--r-- | cv.h | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -107,6 +107,7 @@ See L<perlguts/Autoloading with XSUBs>. #define CVf_CVGV_RC 0x0400 /* CvGV is reference counted */ #define CVf_DYNFILE 0x1000 /* The filename isn't static */ #define CVf_AUTOLOAD 0x2000 /* SvPVX contains AUTOLOADed sub name */ +#define CVf_HASEVAL 0x4000 /* contains string eval */ /* This symbol for optimised communication between toke.c and op.c: */ #define CVf_BUILTIN_ATTRS (CVf_METHOD|CVf_LVALUE) @@ -174,6 +175,10 @@ See L<perlguts/Autoloading with XSUBs>. #define CvAUTOLOAD_on(cv) (CvFLAGS(cv) |= CVf_AUTOLOAD) #define CvAUTOLOAD_off(cv) (CvFLAGS(cv) &= ~CVf_AUTOLOAD) +#define CvHASEVAL(cv) (CvFLAGS(cv) & CVf_HASEVAL) +#define CvHASEVAL_on(cv) (CvFLAGS(cv) |= CVf_HASEVAL) +#define CvHASEVAL_off(cv) (CvFLAGS(cv) &= ~CVf_HASEVAL) + /* Flags for newXS_flags */ #define XS_DYNAMIC_FILENAME 0x01 /* The filename isn't static */ |