diff options
| author | Chip Salzenberg <chip@atlantic.net> | 1996-12-26 13:07:14 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1996-12-28 06:22:00 +1200 |
| commit | 07055b4c536e012d70aa7099a086192fbb14e918 (patch) | |
| tree | 3e0a87f4a64a30f336a29f23aba7fd2aac1b1e58 /cv.h | |
| parent | 39035d0c756b3e78a63763b830ba26854e6124f8 (diff) | |
| download | perl-07055b4c536e012d70aa7099a086192fbb14e918.tar.gz | |
Support named closures
Diffstat (limited to 'cv.h')
| -rw-r--r-- | cv.h | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -47,6 +47,7 @@ struct xpvcv { #define CVf_CLONED 0x02 /* a clone of one of those */ #define CVf_ANON 0x04 /* CvGV() can't be trusted */ #define CVf_OLDSTYLE 0x08 +#define CVf_UNIQUE 0x10 /* can't be cloned */ #define CvCLONE(cv) (CvFLAGS(cv) & CVf_CLONE) #define CvCLONE_on(cv) (CvFLAGS(cv) |= CVf_CLONE) @@ -63,3 +64,7 @@ struct xpvcv { #define CvOLDSTYLE(cv) (CvFLAGS(cv) & CVf_OLDSTYLE) #define CvOLDSTYLE_on(cv) (CvFLAGS(cv) |= CVf_OLDSTYLE) #define CvOLDSTYLE_off(cv) (CvFLAGS(cv) &= ~CVf_OLDSTYLE) + +#define CvUNIQUE(cv) (CvFLAGS(cv) & CVf_UNIQUE) +#define CvUNIQUE_on(cv) (CvFLAGS(cv) |= CVf_UNIQUE) +#define CvUNIQUE_off(cv) (CvFLAGS(cv) &= ~CVf_UNIQUE) |