This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a0f41f2
)
It's good to be able to dump FORMATs too :-)
author
Nicholas Clark
<nick@ccl4.org>
Tue, 2 Jan 2007 17:41:06 +0000
(17:41 +0000)
committer
Nicholas Clark
<nick@ccl4.org>
Tue, 2 Jan 2007 17:41:06 +0000
(17:41 +0000)
p4raw-id: //depot/perl@29665
cv.h
patch
|
blob
|
blame
|
history
diff --git
a/cv.h
b/cv.h
index
cd0b760
..
f49185a
100644
(file)
--- a/
cv.h
+++ b/
cv.h
@@
-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