diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-01-02 17:41:06 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-01-02 17:41:06 +0000 |
| commit | 766e82465f42e4c56202fbbfba511eef4bdf9557 (patch) | |
| tree | ee80ab6107da742dae22812cb5c3b561a546292c /cv.h | |
| parent | a0f41f2518305ae5cc490f6175f9de0f74d9daa7 (diff) | |
| download | perl-766e82465f42e4c56202fbbfba511eef4bdf9557.tar.gz | |
It's good to be able to dump FORMATs too :-)
p4raw-id: //depot/perl@29665
Diffstat (limited to 'cv.h')
| -rw-r--r-- | cv.h | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -124,7 +124,8 @@ 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 *_cv = (CV *)sv; \ - assert(SvTYPE(_cv) == SVt_PVCV); \ + assert(SvTYPE(_cv) == SVt_PVCV || \ + SvTYPE(_cv) == SVt_PVFM); \ &((XPVCV*)SvANY(_cv))->xiv_u.xivu_i32; \ })) #else |