This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
cv.h: macro parentheses
authorFather Chrysostomos <sprout@cpan.org>
Mon, 6 Aug 2012 21:03:31 +0000 (14:03 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 6 Aug 2012 21:04:04 +0000 (14:04 -0700)
I forgot about -- having higher precedence than unary *.  And then
I forgot to test it, convincing myself I had. :-(

cv.h

diff --git a/cv.h b/cv.h
index a94d248..e8cb162 100644 (file)
--- a/cv.h
+++ b/cv.h
@@ -75,7 +75,7 @@ S_CvDEPTHp(const CV * const sv)
                          S_CvDEPTHp(_cvdepth);                         \
                        }))
 #else
-#  define CvDEPTH(sv)  *S_CvDEPTHp((const CV *)sv)
+#  define CvDEPTH(sv)  (*S_CvDEPTHp((const CV *)sv))
 #endif
 #define CvPADLIST(sv)  ((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_padlist
 #define CvOUTSIDE(sv)  ((XPVCV*)MUTABLE_PTR(SvANY(sv)))->xcv_outside