This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PVCVs no longer allocate memory for the SvNVX slot, so assert that
[perl5.git] / sv.h
diff --git a/sv.h b/sv.h
index ab09bba..744bb39 100644 (file)
--- a/sv.h
+++ b/sv.h
@@ -1170,6 +1170,7 @@ the scalar's value cannot change unless written to.
            assert(SvTYPE(_svi) == SVt_NV || SvTYPE(_svi) >= SVt_PVNV); \
            assert(SvTYPE(_svi) != SVt_PVAV);                           \
            assert(SvTYPE(_svi) != SVt_PVHV);                           \
+           assert(SvTYPE(_svi) != SVt_PVCV);                           \
            assert(SvTYPE(_svi) != SVt_PVFM);                           \
            assert(!isGV_with_GP(_svi));                                \
           &(((XPVNV*) SvANY(_svi))->xnv_u.xnv_nv);                     \