X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/6fc9266916f08dacf1850556174b6312eefb14e6..67caa1fef1ac64bae9d7c9deecbf100088307e6f:/cv.h diff --git a/cv.h b/cv.h index 9605135..cf5a750 100644 --- a/cv.h +++ b/cv.h @@ -75,9 +75,11 @@ struct xpvcv { #define CvANON_on(cv) (CvFLAGS(cv) |= CVf_ANON) #define CvANON_off(cv) (CvFLAGS(cv) &= ~CVf_ANON) +#ifdef PERL_XSUB_OLDSTYLE #define CvOLDSTYLE(cv) (CvFLAGS(cv) & CVf_OLDSTYLE) #define CvOLDSTYLE_on(cv) (CvFLAGS(cv) |= CVf_OLDSTYLE) #define CvOLDSTYLE_off(cv) (CvFLAGS(cv) &= ~CVf_OLDSTYLE) +#endif #define CvUNIQUE(cv) (CvFLAGS(cv) & CVf_UNIQUE) #define CvUNIQUE_on(cv) (CvFLAGS(cv) |= CVf_UNIQUE)