From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 2 Jan 2007 17:41:06 +0000 (+0000)
Subject: It's good to be able to dump FORMATs too :-)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=766e82465f42e4c56202fbbfba511eef4bdf9557;p=p5sagit%2Fp5-mst-13.2.git

It's good to be able to dump FORMATs too :-)

p4raw-id: //depot/perl@29665
---

diff --git a/cv.h b/cv.h
index cd0b760..f49185a 100644
--- 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