This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
cv.h: Add comments
authorFather Chrysostomos <sprout@cpan.org>
Fri, 8 Jun 2012 19:27:16 +0000 (12:27 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 8 Jun 2012 23:17:03 +0000 (16:17 -0700)
cv.h

diff --git a/cv.h b/cv.h
index 448e20a..96308a2 100644 (file)
--- a/cv.h
+++ b/cv.h
@@ -123,6 +123,7 @@ See L<perlguts/Autoloading with XSUBs>.
 #define CvANON_on(cv)          (CvFLAGS(cv) |= CVf_ANON)
 #define CvANON_off(cv)         (CvFLAGS(cv) &= ~CVf_ANON)
 
+/* CvEVAL or CvSPECIAL */
 #define CvUNIQUE(cv)           (CvFLAGS(cv) & CVf_UNIQUE)
 #define CvUNIQUE_on(cv)                (CvFLAGS(cv) |= CVf_UNIQUE)
 #define CvUNIQUE_off(cv)       (CvFLAGS(cv) &= ~CVf_UNIQUE)
@@ -139,6 +140,7 @@ See L<perlguts/Autoloading with XSUBs>.
 #define CvLVALUE_on(cv)                (CvFLAGS(cv) |= CVf_LVALUE)
 #define CvLVALUE_off(cv)       (CvFLAGS(cv) &= ~CVf_LVALUE)
 
+/* eval or PL_main_cv */
 #define CvEVAL(cv)             (CvUNIQUE(cv) && !SvFAKE(cv))
 #define CvEVAL_on(cv)          (CvUNIQUE_on(cv),SvFAKE_off(cv))
 #define CvEVAL_off(cv)         CvUNIQUE_off(cv)