Don't test the core XS code yet with PERL_DEBUG_COW > 1
Nicholas Clark [Wed, 8 Jun 2005 09:09:28 +0000 (09:09 +0000)]
p4raw-id: //depot/perl@24751

sv.h

diff --git a/sv.h b/sv.h
index 72c3cef..6c79c19 100644 (file)
--- a/sv.h
+++ b/sv.h
@@ -873,7 +873,8 @@ in gv.h: */
 #define SvIVX(sv) (0 + ((XPVIV*) SvANY(sv))->xiv_iv)
 #define SvUVX(sv) (0 + ((XPVUV*) SvANY(sv))->xuv_uv)
 #define SvNVX(sv) (0 + ((XPVNV*) SvANY(sv))->xnv_nv)
-#if PERL_DEBUG_COW > 1
+/* Don't test the core XS code yet.  */
+#if defined (PERL_CORE) && PERL_DEBUG_COW > 1
 #define SvPVX(sv) (0 + (assert(!SvREADONLY(sv)), (sv)->sv_u.svu_pv))
 #else
 #define SvPVX(sv) SvPVX_mutable(sv)