diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-07-31 10:03:33 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-07-31 10:03:33 +0000 |
| commit | 5129b2ca8d01c31a5ccad56604afff370ba7562e (patch) | |
| tree | 4e3ca09dd43183da3f0dccc9bff118f0af5c5f3c /cv.h | |
| parent | a1fea99b3ddaebb8d880c2daff65d93f1f665e1d (diff) | |
| download | perl-5129b2ca8d01c31a5ccad56604afff370ba7562e.tar.gz | |
You can't (and shouldn't) use CvDEPTH on a PVFM.
p4raw-id: //depot/perl@34167
Diffstat (limited to 'cv.h')
| -rw-r--r-- | cv.h | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -57,8 +57,7 @@ Returns the stash of the CV. #define CvFILEGV(sv) (gv_fetchfile(CvFILE(sv))) #if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) # define CvDEPTH(sv) (*({const CV *_cvdepth = (CV *)sv; \ - assert(SvTYPE(_cvdepth) == SVt_PVCV || \ - SvTYPE(_cvdepth) == SVt_PVFM); \ + assert(SvTYPE(_cvdepth) == SVt_PVCV); \ &((XPVCV*)SvANY(_cvdepth))->xiv_u.xivu_i32; \ })) #else |